Re^5: Global variables in Perl

[ikegami]

It could be that you're not executing the script you think you are executing, or you're not using the module you think you are using.

Please provide the output of the following:

perl -wle'use ConfigThisJunk; print $INC{"ConfigThisJunk.pm"};'
cat ConfigThisJunk.pm     # Or whatever the previous line printed
cat script.pl             # Or whatever your script is called.
perl script.pl            # Or whatever your script is called.

Or on a Windows build:

perl -wle"use ConfigThisJunk; print $INC{'ConfigThisJunk.pm'};"
type ConfigThisJunk.pm     # Or whatever the previous line printed
type script.pl             # Or whatever your script is called.
perl script.pl             # Or whatever your script is called.

[taioba]

OK, here you go. A few adjustments: ConfigThisJunk.pm is actually ExportScalar.pm and the script name is ImportTest.pl. The package is in the folder 'D:/Marcos/Perl/MSB/SS' in my Windows machine. Hence, your line got modified to:

 perl -wle"use lib 'D:/Marcos/Perl/MSB'; use SS::ExportScalar; print $INC{'SS/ExportScalar.pm'};"

and that resulted in

D:/Marcos/Perl/MSB/SS/ExportScalar.pm

And then the results of the type statements:

type ExportScalar.pm
use strict;
use warnings;
use Exporter;
our @ISA = qw( Exporter );
our @EXPORT_OK = qw( DEBUG );

our $DEBUG = 1;

sub DEBUG {
   if (@_) { $DEBUG = shift; }
   return $DEBUG;
}
1;

type ImportTest.pl
#!/usr/bin/perl -w
use strict;
use warnings;
use lib 'D:/Marcos/Perl/MSB';
use SS::ExportScalar qw( DEBUG );
my $x = 123;
print("debug: x is $x\n") if DEBUG;

Now I execute it:

perl ImportTest.pl
Bareword "DEBUG" not allowed while "strict subs" in use at ImportTest.
+pl line 7.
Execution of ImportTest.pl aborted due to compilation errors.

Now, I change the strict statement in ImportTest.pl:

type ImportTest.pl
#!/usr/bin/perl -w
use strict qw (vars refs);
use warnings;
use lib 'D:/Marcos/Perl/MSB';
use SS::ExportScalar qw( DEBUG );
my $x = 123;
print("debug: x is $x\n") if DEBUG;

perl ImportTest.pl
Bareword found in conditional at ImportTest.pl line 7.
debug: x is 123

X:^P

[ikegami]

You're missing package SS::ExportScalar;, so the script never imports DEBUG, so DEBUG is not declared in the script, so it's a bareword, so strict throws an exception.

[taioba]

Sorry, must have got garbled in the transfer to the website. See the whole thing below. Note that if this was the case, the script would not have run the second time after changing strict and execution would be aborted at compilation because Perl wouldn't find ExportScalar.

type ExportScalar.pm
package ExportScalar;
use strict;
use warnings;
use Exporter;
our @ISA = qw( Exporter );
our @EXPORT_OK = qw( DEBUG );

our $DEBUG = 1;

sub DEBUG {
   if (@_) { $DEBUG = shift; }
   return $DEBUG;
}
1;