Changeset 106

Timestamp:

Oct 7, 2003, 11:53:51 PM (23 years ago)

Author:

eugene

Message:

cleaned coding for an error message

File:

• trunk/Ohana/src/perl/src/demodemap (modified) (1 diff)

trunk/Ohana/src/perl/src/demodemap

@@ -24 +24 @@
 $scale = 256;
 $modefits = `detsearch $close -quiet -image $first $ccds[0] split -type modes`; chop ($modefits);
-if ($?) {
-    print "can't get mode image\n";
-    exit 1;
-}
+if ($?) { die "can't get mode image\n"; }
+
 @words = split ("/", $modefits);
 $basename = $words[-1];