check for $wcs file

pkgw · Jul 9, 2014 · 3243a01 · 3243a01
1 parent 7882705
commit 3243a01
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/scripts/mirds9 b/src/scripts/mirds9
@@ -22,7 +22,7 @@
 #
 #  $Id$
 #
-set version="3.6 - 16-sep-2012 PJT"
+set version="3.6a - 9-jul-2014 PJT"
 
 if ($#argv == 0) then
     echo "Usage: $0 [-options] miriad_dataset [plane1] [plane2 ...]"
@@ -286,6 +286,9 @@ endif
 if ($debug) then
   echo Keeping $wcs
 else
+  if (! -e $wcs || -z $wcs) then
+    echo "WARNING: Your $wcs file appear corrupted.  Full /tmp perhaps?"
+  endif
   rm -f $wcs
 endif