diff options
| author | Tony Cook <tony@develop-help.com> | 2018-11-01 13:44:52 +1100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2018-11-01 13:45:55 +1100 |
| commit | 81d45a9d9c6a27c41722370a52a75ef4e8a73277 (patch) | |
| tree | dfcbd4246daeacefd53131cb28a9ff8242b9c0d3 | |
| parent | b3259969157a58bdc63ef35e4469b04ce5f4aec3 (diff) | |
| download | perl-81d45a9d9c6a27c41722370a52a75ef4e8a73277.tar.gz | |
prevent t/Functions.t from warning on undefined values when none supplied
| -rw-r--r-- | dist/PathTools/lib/File/Spec/Win32.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dist/PathTools/lib/File/Spec/Win32.pm b/dist/PathTools/lib/File/Spec/Win32.pm index 0cf0e282da..69acc58096 100644 --- a/dist/PathTools/lib/File/Spec/Win32.pm +++ b/dist/PathTools/lib/File/Spec/Win32.pm @@ -137,7 +137,7 @@ sub catfile { # Legacy / compatibility support # shift, return _canon_cat( "/", @_ ) - if $_[0] eq ""; + if !@_ || $_[0] eq ""; # Compatibility with File::Spec <= 3.26: # catfile('A:', 'foo') should return 'A:\foo'. |