Changeset 3209 for trunk

Timestamp:

Apr 24, 2007, 11:51:30 PM (18 years ago)

Author:

bird

Message:

kLIBC has inode and dev that are pretty much reliable.

File:

• trunk/essentials/dev-lang/perl/lib/File/Copy.pm (modified) (1 diff)

trunk/essentials/dev-lang/perl/lib/File/Copy.pm

@@ -82 +82 @@
 
     if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
-        !($^O eq 'MSWin32' || $^O eq 'os2' || $^O eq 'vms')) {
+        !($^O eq 'MSWin32' || $^O eq 'vms')) {
         my @fs = stat($from);
         if (@fs) {
             my @ts = stat($to);
-            if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1]) {
+            if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] &&
+                ($^O ne 'os2' || ($fs[0] != 0 && $fs[1] != 0))) {
                 carp("'$from' and '$to' are identical (not copied)");
                 return 0;