satisfy warnings

Raku · Aug 7, 2018 · 031a78d · 031a78d
1 parent 001d1a7
commit 031a78d
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/tools/build/gen-version.pl b/tools/build/gen-version.pl
@@ -6,12 +6,16 @@ =head1 TITLE
 
 =cut
 
+use 5.008;
+use strict;
+use warnings;
+
 use Digest::SHA;
 use File::Find;
 use POSIX 'strftime';
 
-my $prefix = shift;
-my $libdir = shift;
+my $prefix = shift // '';
+my $libdir = shift // '';
 
 open(my $fh, '<', 'VERSION') or die $!;
 my $VERSION = <$fh>;
@@ -28,7 +32,7 @@ =head1 TITLE
 my $builddate = strftime('%Y-%m-%dT%H:%M:%SZ', gmtime);
 
 my $sha = Digest::SHA->new;
-find(sub { next unless /\.nqp\z/; $sha->addfile($_) }, "src");
+find(sub { return unless /\.nqp\z/; $sha->addfile($_) }, "src");
 my $source_digest = $sha->hexdigest;
 
 print <<"END_VERSION";