certs/create-certs: create certs in 'certs/' directory

If running in our top-level source tree, use the 'certs/'
directory as  the prefix so we can just invoke `./certs/create-certs.perl'
instead of `(cd certs && ./create-certs.perl)'

diff --git a/certs/create-certs.perl b/certs/create-certs.perl
index 476be4d7f90dc2df09593deef6dd88a124301aa5..b287cec5842626fc7b32304413c14cb8596bffd7 100755 (executable)
--- a/certs/create-certs.perl
+++ b/certs/create-certs.perl
@@ -6,7 +6,7 @@ use warnings;
 use IO::Socket::SSL::Utils;
 use Net::SSLeay;
 
-my $dir = "./";
+my $dir = -d 'certs' && -f 'Makefile.PL' ? './certs/' : './';
 my $now = time();
 my $later = 0x7fffffff; # 2038 problems on 32-bit :<