Re: how do I Append to Perl's @INC array using a variable

[Mr. Shawn H. Corey]

Mr. Shawn H. Corey wrote:

Is it going to waste so much time that you can't call dirname() twice?

If so, try:
#!/usr/bin/perl

use strict;
use warnings;

use vars qw( $dir );
use File::Basename;
use lib ( $dir = dirname( $0 ) );

print "$dir\n";
print "@INC\n";

__END__


--
Just my 0.00000002 million dollars worth,
  Shawn

"For the things we have to learn before we can do them, we learn by doing them."
 Aristotle

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/