comment on

Hello Monks, I'm having a huge problem with pod2usage in the following code:

#!/usr/bin/perl -w
# 
# $Id: move_data.pl,v 1.12 2005/05/05 21:25:58 dwhitney Exp $

### Declaire script vars ###
use vars qw( $Executable $Transaction );
$|++;    # Turn on autoflush

### Import pre-requisite packages
use Log::Log4perl;
use Getopt::Long qw( GetOptions );
use Cwd qw( chdir realpath );
use Benchmark qw( timestr timediff );
use Pod::Usage qw( pod2usage );
use File::Basename qw( fileparse );
use File::Spec qw( catfile rel2abs );
### Bomb if there is nothing on the command line ###
pod2usage(2) if ( not @ARGV );

my @cmd;
my $LIBPATH;

BEGIN {
    use strict;
    use warnings;
    @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]

When I execute this command and once the ENV gets printed, I get this error:

Can't open ./move_data.pl for reading: No such file or directory
 at ./move_data.pl line 18
[download]

That's the 'pod2usage(2) if ( not @ARGV );' line.
What did I do?
Where did I hoze this?
Thanks!
Update: Well, I've tried all of these sugestions and I get nothin. Well, the script works just find, just no help.
I love Perl, but stuff like this makes me want to go kill my self....
Thank you all for your suggestions and advice.

In reply to pod2usage question by dwhitney

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.


Do you know where your variables are?
	PerlMonks