Changeset 102

Timestamp:

Oct 7, 2003, 11:50:55 PM (23 years ago)

Author:

eugene

Message:

cleaned some test code

File:

• trunk/Ohana/src/perl/src/dads.detrend (modified) (3 diffs)

trunk/Ohana/src/perl/src/dads.detrend

@@ -162 +162 @@
 # phu file:
 $phufile = "$outdir/$base.phu";
-goto skipall;
 
 # final output   is    @fitlist
@@ -244 +243 @@
     unlink ("$temp.hdr");
 }
-
- skipall:
-    $temp = "/tmp/elixir.1yqFQu";
-exit 1;
-
 &goodbye ("SUCCESS: finished with dads.detrend");
 
@@ -287 +281 @@
 
 sub vsystem {
-    print STDERR "@_\n";
     $status = system ("@_");
     $status;