diff options
| author | Internet Software Consortium, Inc <@isc.org> | 2010-06-21 09:47:35 -0600 |
|---|---|---|
| committer | Internet Software Consortium, Inc <@isc.org> | 2010-06-21 09:47:35 -0600 |
| commit | ee8d640fb71bcd44bfa372f8489597b8e3d1f1a8 (patch) | |
| tree | 536193ab70d7fb8e81155d1045f5ea7d7c2b4964 /win32utils | |
| parent | 0530b53fd3266aed128be4120a332def55efd24d (diff) | |
| download | bind9-ee8d640fb71bcd44bfa372f8489597b8e3d1f1a8.tar.gz | |
9.7.1
Diffstat (limited to 'win32utils')
| -rw-r--r-- | win32utils/updateopenssl.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/win32utils/updateopenssl.pl b/win32utils/updateopenssl.pl index b2b848dd..d5cbb2f0 100644 --- a/win32utils/updateopenssl.pl +++ b/win32utils/updateopenssl.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl # -# Copyright (C) 2006, 2007, 2009 Internet Systems Consortium, Inc. ("ISC") +# Copyright (C) 2006, 2007, 2009, 2010 Internet Systems Consortium, Inc. ("ISC") # # Permission to use, copy, modify, and/or distribute this software for any # purpose with or without fee is hereby granted, provided that the above @@ -14,7 +14,7 @@ # OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR # PERFORMANCE OF THIS SOFTWARE. -# $Id: updateopenssl.pl,v 1.11 2009/12/04 21:59:24 marka Exp $ +# $Id: updateopenssl.pl,v 1.11.4.2 2010/05/18 06:47:00 tbox Exp $ # updateopenssl.pl # This script locates the latest version of OpenSSL in the grandparent @@ -53,7 +53,7 @@ sub getdirectory { my($file, $name); my($cnt); opendir(DIR,$path) || die "No Directory: $!"; - @namelist = grep (/^openssl-[0-9]+\.[0-9]+\.[0-9]+[a-z]$/i, readdir(DIR)); + @namelist = grep (/^openssl-[0-9]+\.[0-9]+\.[0-9]+[a-z]{0,1}$/i, readdir(DIR)); closedir(DIR); # Make sure we have something @@ -94,7 +94,7 @@ sub updatefile { # Replace the string foreach $line (@Lines) { - $line =~ s/openssl-[0-9]+\.[0-9]+\.[0-9]+[a-z]/$substr/gi; + $line =~ s/openssl-[0-9]+\.[0-9]+\.[0-9]+[a-z]{0,1}/$substr/gi; } #update the file open (RFILE, ">$filename") || die "Can't open file $filename: $!"; |