diff options
| -rwxr-xr-x | scripts/check-near-bragg | 6 | ||||
| -rwxr-xr-x | scripts/check-peak-detection | 6 |
2 files changed, 10 insertions, 2 deletions
diff --git a/scripts/check-near-bragg b/scripts/check-near-bragg index 467ff943..7fd7d013 100755 --- a/scripts/check-near-bragg +++ b/scripts/check-near-bragg @@ -18,7 +18,11 @@ if ( !($args eq "") ) { open(FH, $ARGV[0]); open(TMP, "> list.tmp"); -my $statbuf = stat($ARGV[0]); +my $statbuf = stat($file); +if ( not $statbuf ) { + printf("Couldn't stat stream. Check the filename.\n"); + exit; +} my $stream_mtime = $statbuf->mtime; my $in_image = 0; diff --git a/scripts/check-peak-detection b/scripts/check-peak-detection index 8f2e1378..7d63ccb5 100755 --- a/scripts/check-peak-detection +++ b/scripts/check-peak-detection @@ -36,7 +36,11 @@ if ( !($args eq "") ) { open(FH, $file); open(TMP, "> list.tmp"); -my $statbuf = stat($ARGV[0]); +my $statbuf = stat($file); +if ( not $statbuf ) { + printf("Couldn't stat stream. Check the filename.\n"); + exit; +} my $stream_mtime = $statbuf->mtime; my $in_image = 0; |