upstream/bind9
1
0
Fork 0
mirror of https://github.com/isc-projects/bind9.git synced 2026-06-11 09:09:59 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

be consistant when identifing/changing openssl versions

Browse source
This commit is contained in:
Mark Andrews 2006-10-11 03:54:19 +00:00
parent 0ae69bccae
commit 8e9557e801
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
win32utils/updateopenssl.pl
View file

@ -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.4 2006/09/28 00:03:11 marka Exp $
# $Id: updateopenssl.pl,v 1.5 2006/10/11 03:54:19 marka Exp $
# updateopenssl.pl
# This script locates the latest version of OpenSSL in the grandparent
@ -22,7 +22,6 @@
#
# Path and directory
$path = "..\\..\\";
$SSLDirprefix = "openssl-*";
# List of files that need to be updated with the actual version of the
# openssl directory
@ -54,7 +53,7 @@ sub getdirectory {
my($file, $name);
my($cnt);
opendir(DIR,$path) || die "No Directory: $!";
@namelist = grep (/^$SSLDirprefix/i, readdir(DIR));
@namelist = grep (/^openssl-[0-9]+\.[0-9]+\.[0-9]+[a-z]$/i, readdir(DIR));
closedir(DIR);
# Make sure we have something
@ -95,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]/$substr/gi;
}
#update the file
open (RFILE, ">$filename") || die "Can't open file $filename: $!";