fix mk-latest

[openssl-web.git] / bin / mk-latest

diff --git a/bin/mk-latest b/bin/mk-latest
index 519c353b2856d080e35471320142a6f9fb9b9eb6..14f586f3d93a49b0ad086b79473c6b0636b0b997 100755 (executable)
--- a/bin/mk-latest
+++ b/bin/mk-latest
@@ -1,8 +1,16 @@
 #! /usr/bin/perl -w
 use strict;
 
+die "Missing args\n" if $#ARGV < 0;
+my $SRCDIR = $ARGV[0]; shift;
+
+chdir $SRCDIR || die "Can't chdir $SRCDIR, $!";
+
 my @tarballs =
-       sort grep /openssl-\d+\.\d+\.\d+[a-z]*\.tar\.gz$/, glob("openssl-*.tar.gz");
+       sort grep /openssl-\d+\.\d+\.\d+[a-z]*\.tar\.gz$/,
+               glob("openssl-*.tar.gz");
+die "No tgz files found in $SRCDIR?\n" if $#tarballs < 1;
+
 my %series = ();
 foreach(@tarballs) {
        my ($version, $serie) = /^openssl-((\d+\.\d+\.\d+)[a-z]*)\./;