Change 29353 by [EMAIL PROTECTED] on 2006/11/22 17:00:54
Subject: POSIX::remove() and directories
From: "Dintelmann, Peter" <[EMAIL PROTECTED]>
Date: Wed, 22 Nov 2006 17:41:55 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/POSIX/POSIX.pm#46 edit
Differences ...
==== //depot/perl/ext/POSIX/POSIX.pm#46 (text) ====
Index: perl/ext/POSIX/POSIX.pm
--- perl/ext/POSIX/POSIX.pm#45~28729~ 2006-08-16 06:11:15.000000000 -0700
+++ perl/ext/POSIX/POSIX.pm 2006-11-22 09:00:54.000000000 -0800
@@ -421,7 +421,7 @@
sub remove {
usage "remove(filename)" if @_ != 1;
- CORE::unlink($_[0]);
+ (-d $_[0]) ? CORE::rmdir($_[0]) : CORE::unlink($_[0]);
}
sub rename {
End of Patch.
