diff options
author | David Mitchell <davem@iabyn.com> | 2011-02-17 14:02:04 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2011-02-17 14:02:04 +0000 |
commit | 14f183f169629cf524cc7708b55b1191ecf594d2 (patch) | |
tree | 1a8beb2a5b9ca971af8c8a2c76012adb3d64fb27 /win32/FindExt.pm | |
parent | 9b9ae264c15c6e735eff76081e59697eccac2e76 (diff) | |
download | perl-14f183f169629cf524cc7708b55b1191ecf594d2.tar.gz |
win32/FindExt.pm: fix undef warning
Diffstat (limited to 'win32/FindExt.pm')
-rw-r--r-- | win32/FindExt.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/win32/FindExt.pm b/win32/FindExt.pm index 25fa8ce844..f1957f177e 100644 --- a/win32/FindExt.pm +++ b/win32/FindExt.pm @@ -38,7 +38,7 @@ sub set_static_extensions { # (with possible exclusions) %static = (); my @list = @_; - if ($_[0] eq '*') { + if (@_ and $_[0] eq '*') { my %excl = map {$_=>1} map {m/^!(.*)$/} @_[1 .. $#_]; @list = grep {!exists $excl{$_}} keys %ext; } |