Fix typo introduced in 4c38808d92b95.

The variable name is '$^O' not '-$^O'.  This meant File::Copy::move
didn't put the file in the current working directory when the to
argument had no path component.

diff --git a/lib/File/Copy.pm b/lib/File/Copy.pm
index 71601f3..520752c 100644 (file)
--- 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) {