aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xscripts/check-near-bragg6
-rwxr-xr-xscripts/check-peak-detection6
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;