Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
We don't need libscan() anymore.
  • Loading branch information
pjcj committed Oct 8, 2011
1 parent 697460e commit 5b8083a
Showing 1 changed file with 0 additions and 16 deletions.
16 changes: 0 additions & 16 deletions Makefile.PL
Expand Up @@ -395,22 +395,6 @@ README file, or send mail to me directly.
EOM

sub MY::libscanx
{
my ($self, $path) = @_;
(my $p = $path) =~ s/^\$\(INST_LIB\)/lib/; # 5.6.1
$p =~ s/^\$\(INST_SCRIPT\)/bin/;
$p =~ s|\\|/|g if $^O eq "MSWin32";
print "$path $p\n";
my $wanted = -d $p; # 5.9.0
for my $f (@files)
{
print "$p - $f\n";
last if $wanted ||= $p =~ /$f$/;
}
$wanted && $path;
}

sub MY::postamble
{
my %tests;
Expand Down

0 comments on commit 5b8083a

Please sign in to comment.