B
Bart Van der Donck
Hello,
This is a file named p.pl:
#!/usr/bin/perl
use strict;
use warnings;
use lib '/path/to/mm_e.pm/';
use mm_e;
mm:rintok();
printok();
sub printok { print "ok from p.pl\n"; }
This is a file named mm_e.pm:
package mm;
sub printok { print "ok from mm_e.pm\n"; }
1;
Result:
% perl -w p.pl
ok from mm_e.pm
ok from p.pl
%
Why does this work fine ?
Shouldn't "strict" or "warnings" give me at least an error about this
kind of construction ? I 'm on perl 5.8.3 built for i386-freebsd.
This is a file named p.pl:
#!/usr/bin/perl
use strict;
use warnings;
use lib '/path/to/mm_e.pm/';
use mm_e;
mm:rintok();
printok();
sub printok { print "ok from p.pl\n"; }
This is a file named mm_e.pm:
package mm;
sub printok { print "ok from mm_e.pm\n"; }
1;
Result:
% perl -w p.pl
ok from mm_e.pm
ok from p.pl
%
Why does this work fine ?
Shouldn't "strict" or "warnings" give me at least an error about this
kind of construction ? I 'm on perl 5.8.3 built for i386-freebsd.