From bf83968f4901bdf8b271e261c690f9f65a2e658f Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Fri, 3 May 2013 16:48:31 +0200
Subject: Fix more problems with scripts/create-xscale

---
 scripts/create-xscale | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'scripts/create-xscale')

diff --git a/scripts/create-xscale b/scripts/create-xscale
index 9cd14c8d..aca5aab2 100755
--- a/scripts/create-xscale
+++ b/scripts/create-xscale
@@ -25,7 +25,7 @@ while ( $line = <FH> ) {
 
 	chomp($line);
 
-	if ( $line =~ /^\s+([0-9]+)\s+([0-9]+)\s+([0-9]+)\s+([0-9\.\-]+)\s+([\-]+)\s+([0-9\.\-]+)/ ) {
+	if ( $line =~ /^\s+([0-9\-]+)\s+([0-9\-]+)\s+([0-9\-]+)\s+([0-9\.\-]+)\s+([\-]+)\s+([0-9\.\-]+)/ ) {
 
 		my $h = $1;
 		my $k = $2;
@@ -34,6 +34,11 @@ while ( $line = <FH> ) {
 		my $sig = $6;
 
 		printf("%6i %6i %5i %9.2f %9.2f\n", $h, $k, $l, $int, $sig);
+
+	} else {
+
+		printf(STDERR "Unrecognised: '%s'\n", $line);
+
 	}
 
 }
-- 
cgit v1.2.3