diff options
| -rw-r--r-- | MDK/Common/File.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/MDK/Common/File.pm b/MDK/Common/File.pm index fbd62b7..f73a99c 100644 --- a/MDK/Common/File.pm +++ b/MDK/Common/File.pm @@ -187,7 +187,7 @@ sub cp_with_option { MDK::Common::System::syscall_('mknod', $dest, $stat[2], $stat[6]) or die "mknod failed (dev $dest): $!"; } else { open(my $F, $src) or die "can't open $src for reading: $!\n"; - open(my $G, "> $dest") or die "can't cp to file $dest: !\n"; + open(my $G, "> $dest") or die "can't cp to file $dest: $!\n"; local $_; while (<$F>) { print $G $_ } chmod((stat($src))[2], $dest); } |