selftest.pl (68651) | selftest.pl (100928) |
---|---|
1#!/usr/local/bin/perl -w 2# 3# Run the test suite and generate a report 4# 5 6if (! -f "Configure") { 7 print "Please run perl util/selftest.pl in the OpenSSL directory.\n"; 8 exit 1; --- 43 unchanged lines hidden (view full) --- 52$cversion=`$cc -V 2>&1` if $cversion =~ "usage"; 53$cversion=`$cc --version` if $cversion eq ""; 54$cversion =~ s/Reading specs.*\n//; 55$cversion =~ s/usage.*\n//; 56chomp $cversion; 57 58if (open(IN,"<CHANGES")) { 59 while(<IN>) { | 1#!/usr/local/bin/perl -w 2# 3# Run the test suite and generate a report 4# 5 6if (! -f "Configure") { 7 print "Please run perl util/selftest.pl in the OpenSSL directory.\n"; 8 exit 1; --- 43 unchanged lines hidden (view full) --- 52$cversion=`$cc -V 2>&1` if $cversion =~ "usage"; 53$cversion=`$cc --version` if $cversion eq ""; 54$cversion =~ s/Reading specs.*\n//; 55$cversion =~ s/usage.*\n//; 56chomp $cversion; 57 58if (open(IN,"<CHANGES")) { 59 while(<IN>) { |
60 if (/\*\) (.{0,55})/) { | 60 if (/\*\) (.{0,55})/ && !/applies to/) { |
61 $last=$1; 62 last; 63 } 64 } 65 close(IN); 66} 67 68print OUT "OpenSSL version: $version\n"; --- 131 unchanged lines hidden --- | 61 $last=$1; 62 last; 63 } 64 } 65 close(IN); 66} 67 68print OUT "OpenSSL version: $version\n"; --- 131 unchanged lines hidden --- |