Index: /trunk/Ohana/src/perl/src/mosaic.merge
===================================================================
--- /trunk/Ohana/src/perl/src/mosaic.merge	(revision 35)
+++ /trunk/Ohana/src/perl/src/mosaic.merge	(revision 36)
@@ -11,6 +11,6 @@
 # confusion on a second pass
 
-$answer = `cameraconfig -ccds`;
-@ccds = split (" ", $answer); 
+@ccds = split (" ", `cameraconfig -ccdn`);
+if ($?) { die "ERROR: configuration problem\n"; }
 
 if (@ARGV != 3) { die "ERROR: USAGE: mosaic.tenbin (name) (out) (type)\n" }
@@ -46,18 +46,14 @@
 
 @filenames = ();
-for ($i = 0; $i < @ccds; $i++) {
+foreach $ccd (@ccds) {
     $name = $ARGV[0];
-    $name =~ s/CCDNUM/$ccds[$i]/;
+    $name =~ s/CCDNUM/$ccd/;
     push @filenames, $name;
 
-    $line = `echo $name | fields NEXTEND`;
-    ($junk, $N) = split (" ", $line);
-    if ($i == 0) {
+    ($junk, $N) = split (" ", `echo $name | fields NEXTEND`);
+    if ($ccd eq $ccds[0]) {
 	$Nline = $N;
     } 
-    if ($N != $Nline) {
-	print STDERR "ERROR: mis-matched number of images in $name\n";
-	exit (1);
-    }
+    if ($N != $Nline) { die "ERROR: mis-matched number of images in $name\n"; }
 }    
 
Index: /trunk/Ohana/src/perl/src/mosaic.stats
===================================================================
--- /trunk/Ohana/src/perl/src/mosaic.stats	(revision 35)
+++ /trunk/Ohana/src/perl/src/mosaic.stats	(revision 36)
@@ -10,6 +10,6 @@
 # confusion on a second pass
 
-$answer = `cameraconfig -ccds`;
-@ccds = split (" ", $answer); 
+@ccds = split (" ", `cameraconfig -ccdn`);
+if ($?) { die "ERROR: configuration problem\n"; }
 
 sub vsystem {
@@ -37,23 +37,17 @@
 }
 
-# count number of lines in file 00:
-$name = $ARGV[0];
-$name =~ s/CCDNUM/$ccds[0]/;
+# load in stats from files (Nlist*Nccd entries)
+foreach $ccd (@ccds) {
+    $name = $ARGV[0];
+    $name =~ s/CCDNUM/$ccd/;
 
-# load in stats from files (Nlist*Nccd entries)
-for ($i = 0; $i < @ccds; $i++) {
-    $name = $ARGV[0];
-    $name =~ s/CCDNUM/$ccds[$i]/;
-
-    $lname = "list$i";
     open (FILE, $name);
-    @$lname = <FILE>;
+    @$ccd = <FILE>;
     close (FILE);
 
-    if ($i == 0) {
-	$Nline = @$lname;
-    } else {
-	if (@$lname != $Nline) { die "ERROR mis-matched file lengths\n"; }
-    }
+    if ($ccd eq $ccds[0]) {
+	$Nline = @$ccd;
+    } 
+    if (@$ccd != $Nline) { die "ERROR mis-matched file lengths\n"; }
 }    
 
@@ -77,7 +71,6 @@
     $mbin2 = 0;
 
-    for ($j = 0; $j < @ccds; $j++) {
-	$lname = "list$j";
-	$line = $$lname[$i];
+    foreach $ccd (@ccds) {
+	$line = $$ccd[$i];
 	chop ($line);
 	@words = split (" ", $line);
@@ -96,5 +89,5 @@
 	$mbin2 += $words[7]*$words[7];
     }
-    $N = $j;
+    $N = @ccds;
 
     # identify even or morn twilight