Changeset 2567

Timestamp:

Mar 7, 2006, 1:20:48 AM (19 years ago)

Author:

bird

Message:

Fixed emx perl problems.

File:

• trunk/coreutils/tests/Coreutils.pm (modified) (3 diffs)

trunk/coreutils/tests/Coreutils.pm

@@ -458 +458 @@
               # Move $out aside (to $orig), then then recreate $out
               # by transforming each line of $orig via $subst_expr.
+              unlink $orig; # bird - emx hack
               rename $out, $orig
                 or (warn "$program_name: cannot rename $out to $orig: $!\n"),
@@ -464 +465 @@
                 or (warn "$program_name: cannot open $orig for reading: $!\n"),
                   $fail = 1, (unlink $orig), next;
-              unlink $orig
-                or (warn "$program_name: cannot unlink $orig: $!\n"),
-                  $fail = 1;
+              if (0) { # bird - emx hack
+                unlink $orig
+                  or (warn "$program_name: cannot unlink $orig: $!\n"),
+                    $fail = 1;
+              }
               open OUT, ">$out"
                 or (warn "$program_name: cannot open $out for writing: $!\n"),
@@ -479 +482 @@
                 or (warn "$program_name: failed to write $out: $!\n"),
                   $fail = 1, next;
+              if (1) { # bird - emx hack
+                unlink $orig;
+              }
             }