diff options
| -rw-r--r-- | lib/File/Copy.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/File/Copy.pm b/lib/File/Copy.pm index 71601f3763..520752c5ed 100644 --- a/lib/File/Copy.pm +++ b/lib/File/Copy.pm @@ -332,7 +332,7 @@ sub _move { } my $rename_to = $to; - if (-$^O eq 'VMS' && -e $from) { + if ($^O eq 'VMS' && -e $from) { if (! -d $to && ! -d $from) { |