Subject: RE: FW: Cygwin Perl bug -- pod2usage(-verbose => 0) & pod2usage(-verbose => 1)
From: "David Christensen" <[email-masked]>
To: <[email-masked]>
Cc: "'Reini Urban'" <[email-masked]>, <[email-masked]>, <[email-masked]>, "'cygwin'" <[email-masked]>
Date: Thu, 26 Oct 2006 18:11:30 -0700

Marek:

Thank you.  :-)

David

-----Original Message-----
From: [email-masked]
[mailto:[email-masked]] 
Sent: Thursday, October 26, 2006 2:15 PM
To: David Christensen
Cc: 'Reini Urban'; [email-masked]; [email-masked]; 'cygwin'
Subject: RE: FW: Cygwin Perl bug -- pod2usage(-verbose => 0) &
pod2usage(-verbose => 1)

I will consider this fix in the next Pod-Parser release.

-Marek

On Sun, 9 Jul 2006, David Christensen wrote:

> Cygwin & Perl:
>
> This issue is still present.
>
>
> Reini's PERLIO suggestion functions as a work-around on Cygwin.
>
>
> Who decides if/when to use Reini's suggested patch?  If that decision
> has already been made in the negative, why and what is the next step?
> If that decision has already be made in the positive, when will we see
> the correction in Cygwin?
>
>
> David
>
>
>
> -----Original Message-----
> From: [email-masked] [mailto:[email-masked]] On
Behalf
> Of Reini Urban
> Sent: Tuesday, January 18, 2005 2:03 AM
> To: [email-masked]
> Cc: David Christensen; [email-masked]; cygwin
> Subject: Re: FW: Cygwin Perl bug -- pod2usage(-verbose => 0) &
> pod2usage(-verbose => 1)
>
> David Christensen schrieb:
>> pod-people & perlbug:
>> I made the subject posting on the Cygwin mailing list.  Gerrit P.
> Haase
>> confirmed the bug in pod2usage(), and requested that I forward the
> posting to
>> pod-people and perlbug.  The referenced script attachments follow.
>
> All three cases work fine for me on cygwin & perl 5.8.6 with default
> configuration.
> Having the scripts on textmounts and on binmounts.
>
> Just if the scripts are on textmounts and the files with CRLF, test0
and
>
> test1 will fail. PERLIO not set.
>
> However:
>   PERLIO=crlf ./test1
> and
>   PERLIO=crlf ./test0
> works ok, with those textmount cases.
>
> Debugging through Pod::Usage, reveils that reading from the tied
> FileHandle will keep \r\n. Looks ok.
>
> Pod::Parser::parse_from_filehandle ...
>   DB<1> x $in_fh
> 0  GLOB(0x8f2534)
>    -> *Symbol::GEN0
>          FileHandle({*Symbol::GEN0}) => fileno(6)
>  DB<2> c Pod::Select::is_selected
> Pod::Select::is_selected(/usr/lib/perl5/5.8/Pod/Select.pm:508):
>
> $_ = "=head1 SYNOPSIS\cM\cJ\cM\cJ";
> if (/^=((?:sub)*)(?:head(?:ing)?|sec(?:tion)?)(\d*)\s+(.*)\s*$/) {
>    my ($level, $heading) = ($2, $3);
> }
>
>   DB<2> x $heading
> 0  "SYNOPSIS\cM"
>
> Which should be "SYNOPSIS".
>
> So my recommended fix would be this patch:
>
> $ diff -bu Select.pm~ Select.pm
> --- Select.pm~  2005-01-10 00:30:15.001000000 +0100
> +++ Select.pm   2005-01-18 11:02:32.920797700 +0100
> @@ -505,7 +505,7 @@
>
>      ## Keep track of current sections levels and headings
>      $_ = $paragraph;
> -    if (/^=((?:sub)*)(?:head(?:ing)?|sec(?:tion)?)(\d*)\s+(.*)\s*$/)
{
> +    if (/^=((?:sub)*)(?:head(?:ing)?|sec(?:tion)?)(\d*)\s+(.*?)\s*$/)
{
>          ## This is a section heading command
>          my ($level, $heading) = ($2, $3);
>          $level = 1 + (length($1) / 3)  if ((! length $level) ||
> (length $1));
>
>
>> -----Original Message-----
>> From: David Christensen [mailto: dpchrist at holgerdanske dot com]
>> Sent: Sunday, January 16, 2005 7:03 PM
>> To: 'cygwin at cygwin dot com'
>> Subject: Cygwin Perl bug -- pod2usage(-verbose => 0) &
> pod2usage(-verbose => 1)
>>
>> Cygwin:
>>
>> Perl Pod::Usage pod2usage(-verbose => 0) is supposed to display the
> Pod SYNOPSIS
>> information (ref. 'perdoc Pod::Usage').  See attached script 'test0'.
> On Debian
>> 3.0r2, it works:
>>
>>     <CVSENV>dpchrist@p166d302:~/cygwin-issues/Pod-Usage$ perl test0
>>     Usage:
>>         This is the synopsis...
>>
>> On Cygwin, it exits without displaying anything.
>>
>> pod2usage(-verbose => 1) is supposed to display the Pod SYNOPSIS,
> OPTIONS,
>> ARGUMENTS, and/or OPTIONS AND ARGUMENTS sections.  See attached
script
> 'test1'.
>> On Debian, it works:
>>
>>     <CVSENV>dpchrist@p166d302:~/cygwin-issues/Pod-Usage$ perl test1
>>     Usage:
>>         This is the synopsis...
>>
>>     Options:
>>         Here are the options...
>>
>> On Cygwin, it exits without displaying anything.
>>
>>
>> pod2usage(-verbose => 2) is supposed to display the entire Pod
> documentation.
>> See attached script 'test2'.  It works on both Debian and Cygwin.
>>
>>
>> Checking the mailing list archive, I see one report but no
resolution:
>>
>> 	http://sources.redhat.com/ml/cygwin/2002-01/msg01392.html
>>
>>
>> Google didn't seem to have much on this either.
>>
>> dpchrist@p42800e:~/mydocuments/cygwin-issues/Pod-Usage$ cat test0
>> #! /usr/bin/perl -w
>> use Pod::Usage;
>>
>> pod2usage(-verbose => 0);
>>
>> =pod
>>
>> =head1 NAME
>>
>> test - demonstrates Cygwin bug in pod2usage.
>>
>> =head1 SYNOPSIS
>>
>> This is the synopsis...
>>
>> =head1 OPTIONS
>>
>> Here are the options...
>>
>> =head1 DESCRIPTION
>>
>> Descriptive text...
>>
>> =cut
>> dpchrist@p42800e:~/mydocuments/cygwin-issues/Pod-Usage$ cat test1
>> #! /usr/bin/perl -w
>> use Pod::Usage;
>>
>> pod2usage(-verbose => 1);
>>
>> =pod
>>
>> =head1 NAME
>>
>> test - demonstrates Cygwin bug in pod2usage.
>>
>> =head1 SYNOPSIS
>>
>> This is the synopsis...
>>
>> =head1 OPTIONS
>>
>> Here are the options...
>>
>> =head1 DESCRIPTION
>>
>> Descriptive text...
>>
>> =cut
>> dpchrist@p42800e:~/mydocuments/cygwin-issues/Pod-Usage$ cat test2
>> #! /usr/bin/perl -w
>> use Pod::Usage;
>>
>> pod2usage(-verbose => 2);
>>
>> =pod
>>
>> =head1 NAME
>>
>> test - demonstrates Cygwin bug in pod2usage.
>>
>> =head1 SYNOPSIS
>>
>> This is the synopsis...
>>
>> =head1 OPTIONS
>>
>> Here are the options...
>>
>> =head1 DESCRIPTION
>>
>> Descriptive text...
>>
>> =cut
> -- 
> Reini Urban
> http://xarch.tu-graz.ac.at/home/rurban/
>
> --
> Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
> Problem reports:       http://cygwin.com/problems.html
> Documentation:         http://cygwin.com/docs.html
> FAQ:                   http://cygwin.com/faq/
>
>

************************************************************************
****
* Marek Rouchal                                  < [email-masked]
> *
* Murstr. 20
http://saftsack.fs.uni-bayreuth.de/~marek *
* D-85356 Freising                finger
[email-masked] *
* Tel +49-8161-885085             for PGP Public Key
*
************************************************************************
****

--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Problem reports:       http://cygwin.com/problems.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/