diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-06-25 06:42:16 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-06-25 06:42:16 +0000 |
| commit | d5cad2f4c2d9c917a2dce1a563edf1537b26237d (patch) | |
| tree | fc5f6be73aa1209cf43838c6f7598476ed617c0c /MDK | |
| parent | 9e8102c1e11ec4d6c4c9242793c0f65501c72378 (diff) | |
| download | perl-MDK-Common-d5cad2f4c2d9c917a2dce1a563edf1537b26237d.tar perl-MDK-Common-d5cad2f4c2d9c917a2dce1a563edf1537b26237d.tar.gz perl-MDK-Common-d5cad2f4c2d9c917a2dce1a563edf1537b26237d.tar.bz2 perl-MDK-Common-d5cad2f4c2d9c917a2dce1a563edf1537b26237d.tar.xz perl-MDK-Common-d5cad2f4c2d9c917a2dce1a563edf1537b26237d.zip | |
fix typo
Diffstat (limited to 'MDK')
| -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); } |