aboutsummaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorThomas White <taw@physics.org>2013-05-03 16:48:31 +0200
committerThomas White <taw@physics.org>2013-05-03 16:48:31 +0200
commitbf83968f4901bdf8b271e261c690f9f65a2e658f (patch)
tree55424615ef440e810fda3b7fb7db20354cd8da3a /scripts
parente21ae2673067741739b6c2cea818561be59924d4 (diff)
Fix more problems with scripts/create-xscale
Diffstat (limited to 'scripts')
-rwxr-xr-xscripts/create-xscale7
1 files changed, 6 insertions, 1 deletions
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);
+
}
}