Index: /branches/eam_branch_20080408/ippScripts/scripts/warp_skycell.pl
===================================================================
--- /branches/eam_branch_20080408/ippScripts/scripts/warp_skycell.pl	(revision 17433)
+++ /branches/eam_branch_20080408/ippScripts/scripts/warp_skycell.pl	(revision 17434)
@@ -137,4 +137,5 @@
 my ($astromFile, $astromName) = tempfile( "$outrootResolved.astrom.list.XXXX", UNLINK => !$save_temps);
 
+my $wrote_astrom = 0;
 foreach my $imfile (@$imfiles) {
     my $image = $imfile->{uri};	# Image name
@@ -159,5 +160,12 @@
     print $maskFile   "$mask\n";
     print $weightFile "$weight\n";
-    print $astromFile "$astrom\n";
+    
+    if (!$wrote_astrom) {
+	print $astromFile "$astrom\n";
+	# XXX simplify this?  only ever have one file for astrometry (must be MEF)
+	if ($astromSource eq 'PSASTRO.OUTPUT.MEF') { 
+	    $wrote_astrom = 1;
+	}
+    }
 }
 close $imageFile;