This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
9b47cdd
)
detaint paths added by blib.pm
author
David Mitchell
<davem@iabyn.com>
Tue, 24 Aug 2010 22:55:58 +0000
(23:55 +0100)
committer
David Mitchell
<davem@iabyn.com>
Tue, 24 Aug 2010 22:55:58 +0000
(23:55 +0100)
lib/blib.pm
patch
|
blob
|
blame
|
history
diff --git
a/lib/blib.pm
b/lib/blib.pm
index
854ec0b
..
63855cb
100644
(file)
--- a/
lib/blib.pm
+++ b/
lib/blib.pm
@@
-67,6
+67,11
@@
sub import
$dir = File::Spec->curdir unless ($dir);
die "$dir is not a directory\n" unless (-d $dir);
}
+
+ # detaint: if the user asked for blib, s/he presumably knew
+ # what s/he wanted
+ $dir = $1 if $dir =~ /^(.*)$/;
+
my $i = 5;
my($blib, $blib_lib, $blib_arch);
while ($i--)