diff options
| author | Craig A. Berry <craigberry@mac.com> | 2013-12-21 08:28:23 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2013-12-21 08:28:23 -0600 |
| commit | 3f79341b652b57aef7d15dfcdd013485fc9b23a6 (patch) | |
| tree | a771bb45165f1aeb93ab1a903699ce55ac50d28a /lib/File | |
| parent | 365f8c3e9d04802accfb3922fb8ab94c3d17c8d9 (diff) | |
| download | perl-3f79341b652b57aef7d15dfcdd013485fc9b23a6.tar.gz | |
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.
Diffstat (limited to 'lib/File')
| -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) { |