Bug#142263: marked as done (perl-modules: Pod::Usage doesn't behave as advertised when only an exit code is given)

[Debian Bug Tracking System]

Your message dated Tue, 11 Apr 2006 01:21:48 +0300
with message-id <[EMAIL PROTECTED]>
and subject line Bug#142263: perl-modules: Pod::Usage doesn't behave as 
advertised when only an exit code is given
has caused the attached Bug report to be marked as done.

This means that you claim that the problem has been dealt with.
If this is not the case it is now your responsibility to reopen the
Bug report if necessary, and/or fix the problem forthwith.

(NB: If you are a system administrator and have no idea what I am
talking about this indicates a serious mail system misconfiguration
somewhere.  Please contact me immediately.)

Debian bug tracking system administrator
(administrator, Debian Bugs database)

--- Begin Message ---

Package: perl-modules
Version: 5.6.1-7
Severity: normal
File: /usr/share/perl/5.6.1/Pod/Usage.pm

    pod2usage('-exitval' => 0);

automagicly sets '-verbose' to 1 as advertised in the man page, but 

    pod2usage(0);

doesn't.

It seem slike maybe the problem is in the very beginning of Usage.pm:

sub pod2usage {
    local($_) = shift || "";
    my %opts;
    ## Collect arguments
    if (@_ > 0) {
        ## Too many arguments - assume that this is a hash and
        ## the user forgot to pass a reference to it.
        %opts = ($_, @_);
    }
    elsif (ref $_) {
        ## User passed a ref to a hash
        %opts = %{$_}  if (ref($_) eq 'HASH');
    }
    elsif (/^[-+]?\d+$/) {
        ## User passed in the exit value to use
        $opts{"-exitval"} =  $_;
    }
    else {
        ## User passed in a message to print before issuing usage.
        $_  and  $opts{"-message"} = $_;
    }

It always seems to end up in the catch-all else clause, even when
passed called with 0 or "0" as an argument.  But maybe this is some
artifact of the debugger and the local()ization of $_ that I don't
understand, since I can't seem to look at $_ with the debugger while
in pod2usage.

I tried to send a copy to upstream as well, though I don't know if it
got there yet.

Britton

-- System Information
Debian Release: 3.0
Architecture: i386
Kernel: Linux anorien 2.4.17 #1 Fri Dec 28 15:42:14 AKST 2001 i586
Locale: LANG=C, LC_CTYPE=

Versions of packages perl-modules depends on:
ii  perl                          5.6.1-7    Larry Wall's Practical Extraction 

--- End Message ---

--- Begin Message ---

Package: perl
Version: 5.8.8-1

On Wed, Apr 10, 2002 at 02:49:50PM -0800, Britton Leo Kerin wrote:
> Package: perl-modules
> Version: 5.6.1-7
> Severity: normal
> File: /usr/share/perl/5.6.1/Pod/Usage.pm
> 
>     pod2usage('-exitval' => 0);
> 
> automagicly sets '-verbose' to 1 as advertised in the man page, but 
> 
>     pod2usage(0);
> 
> doesn't.

Hi,

this was fixed in Pod::Usage 1.33, included in perl 5.8.8.

Closing accordingly.

Cheers,
-- 
Niko Tyni       [EMAIL PROTECTED]

--- End Message ---