Fix: Error when no file detected recursively

Sylvester254 · Aug 29, 2017 · ed912c7 · ed912c7
1 parent 680c0cc
commit ed912c7
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/betty-doc.pl b/betty-doc.pl
@@ -41,6 +41,7 @@
 # -- Dan Luedtke <[email protected]>
 
 my $V = '1.0';
+my $P = $0;
 
 sub printVersion {
 
@@ -3151,6 +3152,11 @@ ($)
 my @files_to_process = @ARGV;
 if ($recursive == 1) {
 	@files_to_process = split(/\n/, `find . -name "*.c" -o -name "*.h"`);
+	if (scalar @files_to_process == 0) {
+		my $exec_name = basename($P);
+		print "$exec_name: no input files\n";
+		exit(1);
+	}
 }
 
 foreach (@files_to_process) {

diff --git a/betty-style.pl b/betty-style.pl
@@ -865,6 +865,11 @@ sub git_commit_info {
 my @files_to_process = @ARGV;
 if ($recursive == 1) {
 	@files_to_process = split(/\n/, `find . -name "*.c" -o -name "*.h"`);
+	if (scalar @files_to_process == 0) {
+		my $exec_name = basename($P);
+		print "$exec_name: no input files\n";
+		exit(1);
+	}
 }
 
 my $vname;