Re^2: pod2usage question

Well, I've changed by BEGIN block as follows:

BEGIN {
    use strict;
    use warnings;
    print "I am here!\n";
    use Pod::Usage qw( pod2usage );
    ### Bomb if there is nothing on the command line ###
    pod2usage(2) if ( not @ARGV );
    print "I am there!\n";
    @cmd = fileparse( File::Spec->rel2abs( $0 ), '\.[^.]*' );
    $LIBPATH = File::Spec->catdir( $cmd[1], "../lib" );
    eval " use lib '$LIBPATH'";
    chdir "$LIBPATH";
    
    use Data::Dumper;
    printf "---ENV---\n%s\n", Dumper( \%ENV );
    
}
[download]

Now here's the funky part, on a Win32 box, I get the output:

I am here!
Usage:
    move_data.pl [options]

    Options:

     -help..........Brief help message
     -man...........Full documentation
     -config........Full path to the configuration file
[download]

Which is what I expected, while on a Linux machine, I only get the I am here!...
What gives?

Comment on Re^2: pod2usage question Select or Download Code

Replies are listed 'Best First'.
Re^3: pod2usage question by saintmike (Vicar) on May 07, 2005 at 19:39 UTC
Which is what I expected, while on a Linux machine, I only get the I am here!... Odd, works just fine for me. Maybe you should try running it in the debugger. Since the relevant code is in a BEGIN block, you need to put `BEGIN { $DB::single = 1; ...` [download] in there to make sure the debugger doesn't just jump over it. Then, call `$ perl -d move_data.pl` [download] from the command line and step through the source lines using `n` and `s`.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: pod2usage question
by saintmike (Vicar) on May 07, 2005 at 19:39 UTC

Which is what I expected, while on a Linux machine, I only get the I am here!...

        BEGIN {
            $DB::single = 1;
            ...
[download]

    $ perl -d move_data.pl
[download]

n

s

[reply]
[d/l]
[select]