dist/Data-Dumper/t/pair.t See if Data::Dumper pair separator works
dist/Data-Dumper/t/perl-74170.t Regression test for stack reallocation
dist/Data-Dumper/t/terse.t See if Data::Dumper terse option works
+dist/Devel-SelfStubber/lib/Devel/SelfStubber.pm Generate stubs for SelfLoader.pm
+dist/Devel-SelfStubber/t/Devel-SelfStubber.t See if Devel::SelfStubber works
dist/ExtUtils-Command/lib/ExtUtils/Command.pm Utilities for Make on non-UNIX platforms
dist/ExtUtils-Command/t/cp.t See if ExtUtils::Command works
dist/ExtUtils-Command/t/eu_command.t See if ExtUtils::Command works
ext/Devel-Peek/Peek.pm Data debugging tool, module and pod
ext/Devel-Peek/Peek.xs Data debugging tool, externals
ext/Devel-Peek/t/Peek.t See if Devel::Peek works
-ext/Devel-SelfStubber/lib/Devel/SelfStubber.pm Generate stubs for SelfLoader.pm
-ext/Devel-SelfStubber/t/Devel-SelfStubber.t See if Devel::SelfStubber works
ext/DynaLoader/dl_aix.xs AIX implementation
ext/DynaLoader/dl_beos.xs BeOS implementation
ext/DynaLoader/dl_dld.xs GNU dld style implementation
'UPSTREAM' => undef,
},
+ 'Devel::SelfStubber' =>
+ {
+ 'MAINTAINER' => 'p5p',
+ 'DISTRIBUTION' => 'FLORA/Devel-SelfStubber-1.03.tar.gz',
+ 'FILES' => q[dist/Devel-SelfStubber],
+ 'UPSTREAM' => 'blead',
+ },
+
'Devel::PPPort' =>
{
'MAINTAINER' => 'mhx',
ext/Devel-DProf/
ext/Devel-Peek/
- ext/Devel-SelfStubber/
ext/DynaLoader/
ext/Errno
ext/Fcntl/
$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);
}
(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);
}
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; }
}
}