Changeset 122

Timestamp:

Oct 8, 2003, 9:45:12 AM (23 years ago)

Author:

eugene

Message:

added 'preserve' mode to keep temp files

File:

• trunk/Ohana/src/perl/src/detflips (modified) (3 diffs)

trunk/Ohana/src/perl/src/detflips

@@ -3 +3 @@
 # grab the command line options [-C config] [-c configfile]
 $config = "";
+$preserve = 0;
 @tARGV = ();
 while (@ARGV) {
@@ -12 +13 @@
         $config = "$config -c $ARGV[1]";
         shift; shift; next;
+    }
+    if ($ARGV[0] eq "-preserve") {
+        $preserve = 1;
+        shift; next;
     }
     push @tARGV, $ARGV[0];
@@ -72 +77 @@
 $stat = $?;
 
-unlink ($temp1);
-unlink ($temp2);
+if (! $preserve) {
+    unlink ($temp1);
+    unlink ($temp2);
+}
 
 if ($stat) {