Changeset 178

Timestamp:

12/22/05 09:00:38 (18 years ago)

Author:

thauvin

Message:

• fix typo, ask to user

File:

• trunk/soft/ObsData/bin/obsdata (modified) (2 diffs, 1 prop)

trunk/soft/ObsData/bin/obsdata

@@ -76 +76 @@
     my ($oa, $oe) = @_;
     for ($oe->id) {
-        /^overwrite$/ && !oe->test_result('dest_exists') and return 1;
+        /^overwrite$/ && !$oe->test_result('dest_exists') and return 1;
     }
     print $oe->message ."\n";
@@ -82 +82 @@
         printf("\t%s\n", $oe->test_message($_));
     }
-    return(0);
+    print "Processing ? Y/n: ";
+    my $res = <STDIN>;
+    chomp($res);
+    return($res =~ /^[Yy]$/ ? 1 : 0);
 }