Index: /trunk/Ohana/src/perl/src/detflips
===================================================================
--- /trunk/Ohana/src/perl/src/detflips	(revision 121)
+++ /trunk/Ohana/src/perl/src/detflips	(revision 122)
@@ -3,4 +3,5 @@
 # grab the command line options [-C config] [-c configfile]
 $config = "";
+$preserve = 0;
 @tARGV = ();
 while (@ARGV) {
@@ -12,4 +13,8 @@
 	$config = "$config -c $ARGV[1]";
         shift; shift; next;
+    }
+    if ($ARGV[0] eq "-preserve") {
+        $preserve = 1;
+        shift; next;
     }
     push @tARGV, $ARGV[0];
@@ -72,6 +77,8 @@
 $stat = $?;
 
-unlink ($temp1);
-unlink ($temp2);
+if (! $preserve) {
+    unlink ($temp1);
+    unlink ($temp2);
+}
 
 if ($stat) {