At 20:26 Uhr +0200 22.05.2001, Thomas Wegner wrote:
>Hi,
>
>I'm sending patches for "filecopy.t" and "File::Copy".
Actually, I've made a mistake: The patched "filecopy.t" may not do what it is supposed
to do if the user has a mounted volume called "lib". The following patch fixes this
issue; it should be applied after my original patch has been applied:
diff -ru :perl:t:lib:filecopy.t.1st-patch :perl:t:lib:filecopy.t
--- :perl:t:lib:filecopy.t.1st-patch Thu May 24 15:18:10 2001
+++ :perl:t:lib:filecopy.t Thu May 24 15:21:56 2001
@@ -109,10 +109,12 @@
printf "ok %d\n", 12+$loopconst;
unlink ":lib:file-$$" or die "unlink: $!";
- undef $@;
- eval { (copy "file-$$", "lib:") || die "'lib:' is not a volume name"; };
- print "# Died: $@";
- print "not " unless ( $@ =~ m|'lib:' is not a volume name| );
+ unless (-e 'lib:') { # make sure there's no volume called 'lib'
+ undef $@;
+ eval { (copy "file-$$", "lib:") || die "'lib:' is not a volume name"; };
+ print "# Died: $@";
+ print "not " unless ( $@ =~ m|'lib:' is not a volume name| );
+ }
printf "ok %d\n", 13+$loopconst;
move "file-$$", ":lib:";
__END__ of patch
I apologize for all hassles.
Best regards,
--Thomas
_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
