diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-03-31 14:12:40 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-03-31 14:12:40 +0000 |
| commit | 6c3ff2fa5aa3b9ebab711350c558df6608e175d4 (patch) | |
| tree | 6ebc9fa04741a0d271df82d7f12c29f794a57cbb /MDK | |
| parent | ff615edef2d11617dffa13de037991ae86ff3f70 (diff) | |
| download | perl-MDK-Common-6c3ff2fa5aa3b9ebab711350c558df6608e175d4.tar perl-MDK-Common-6c3ff2fa5aa3b9ebab711350c558df6608e175d4.tar.gz perl-MDK-Common-6c3ff2fa5aa3b9ebab711350c558df6608e175d4.tar.bz2 perl-MDK-Common-6c3ff2fa5aa3b9ebab711350c558df6608e175d4.tar.xz perl-MDK-Common-6c3ff2fa5aa3b9ebab711350c558df6608e175d4.zip | |
cp_af() now handles devices (block and character)
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 4573fc4..bf4cd01 100644 --- a/MDK/Common/File.pm +++ b/MDK/Common/File.pm @@ -184,7 +184,7 @@ sub cp_with_option { } elsif ((-b $src || -c $src) && $keep_special) { my @stat = stat($src); require MDK::Common::System; - MDK::Common::System::syscall_('mknod', $dest, $stat[2], $stat[6]) or die "mknod failed (dev $_): $!"; + MDK::Common::System::syscall_('mknod', $dest, $stat[2], $stat[6]) or die "mknod failed (dev $dest): $!"; } else { local *F; open F, $src or die "can't open $src for reading: $!\n"; local *G; open G, "> $dest"; |