Changeset 125

Timestamp:

Oct 28, 2003, 5:54:33 PM (23 years ago)

Author:

eugene

Message:

corrected an error: sort was sorting *alphabetically* not
numerically!!

File:

• trunk/Ohana/src/perl/src/getfringe (modified) (2 diffs)

trunk/Ohana/src/perl/src/getfringe

@@ -81 +81 @@
 
 # calculate fringe & sky medians
-@fringe = sort @fringe;
+@fringe = sort {$a <=> $b} @fringe;
 $fringe = $fringe[int(0.5*$N)];
 @sky = sort @sky;
@@ -117 +117 @@
     exit 0;
 }
-
-