Index: /trunk/Ohana/src/perl/src/demodemap
===================================================================
--- /trunk/Ohana/src/perl/src/demodemap	(revision 105)
+++ /trunk/Ohana/src/perl/src/demodemap	(revision 106)
@@ -24,8 +24,6 @@
 $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];