diff options
| author | David Mitchell <davem@iabyn.com> | 2010-08-24 23:55:58 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2010-08-24 23:55:58 +0100 |
| commit | 3f9bb6b034fc3e91c3576718cf4783d1f5fa55f9 (patch) | |
| tree | 5fef2088234296c9eec83fd24c02908f3939fbb9 /lib/blib.pm | |
| parent | 9b47cddefd9b4a322e6382c8979ceeb2c3ac25c9 (diff) | |
| download | perl-3f9bb6b034fc3e91c3576718cf4783d1f5fa55f9.tar.gz | |
detaint paths added by blib.pm
Diffstat (limited to 'lib/blib.pm')
| -rw-r--r-- | lib/blib.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/blib.pm b/lib/blib.pm index 854ec0b4f8..63855cb594 100644 --- 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--) |