diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Devel/SelfStubber.pm')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/Devel/SelfStubber.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/Master/tlpkg/tlperl/lib/Devel/SelfStubber.pm b/Master/tlpkg/tlperl/lib/Devel/SelfStubber.pm index bfdb4430d00..e47cd3a3326 100644 --- a/Master/tlpkg/tlperl/lib/Devel/SelfStubber.pm +++ b/Master/tlpkg/tlperl/lib/Devel/SelfStubber.pm @@ -4,7 +4,7 @@ require SelfLoader; @ISA = qw(SelfLoader); @EXPORT = 'AUTOLOAD'; $JUST_STUBS = 1; -$VERSION = 1.03; +$VERSION = 1.05; sub Version {$VERSION} # Use as @@ -33,7 +33,7 @@ sub stub { $lib ||= File::Spec->curdir(); ($mod_file = $module) =~ s,::,/,g; $mod_file =~ tr|/|:| if $^O eq 'MacOS'; - + $mod_file = File::Spec->catfile($lib, "$mod_file.pm"); $fh = "${module}::DATA"; my (@BEFORE_DATA, @AFTER_DATA, @AFTER_END); @@ -47,7 +47,7 @@ sub stub { } (defined ($line) && $line =~ m/^__DATA__/) || die "$mod_file doesn't contain a __DATA__ token"; - $found_selfloader || + $found_selfloader || print 'die "\'use SelfLoader;\' statement NOT FOUND!!\n"',"\n"; if ($JUST_STUBS) { $self->_load_stubs($module); @@ -62,13 +62,13 @@ sub stub { } close($fh); unless ($JUST_STUBS) { - print @BEFORE_DATA; + print @BEFORE_DATA; } print @STUBS; unless ($JUST_STUBS) { - print "1;\n__DATA__\n",@DATA; - if($end_data) { print "__END__ DATA\n",@AFTER_DATA; } - if(@AFTER_END) { print "__END__\n",@AFTER_END; } + print "1;\n__DATA__\n",@DATA; + if($end_data) { print "__END__ DATA\n",@AFTER_DATA; } + if(@AFTER_END) { print "__END__\n",@AFTER_END; } } } |