Commit 199b2460 authored by Rich Salz's avatar Rich Salz
Browse files

Run perltidy, use strict+warnings on mkrc.pl

parent 5038e325
Loading
Loading
Loading
Loading
+23 −18
Original line number Diff line number Diff line
@@ -6,12 +6,16 @@
# in the file LICENSE in the source distribution or at
# https://www.openssl.org/source/license.html

use strict;
use warnings;
use lib ".";
use configdata;
use File::Spec::Functions;

my $versionfile = catfile( $config{sourcedir}, "include/openssl/opensslv.h" );

my ( $ver, $v1, $v2, $v3, $v4, $beta, $version );

open FD, $versionfile or die "Couldn't open include/openssl/opensslv.h: $!\n";
while (<FD>) {
    if (/OPENSSL_VERSION_NUMBER\s+(0x[0-9a-f]+)/i) {
@@ -30,12 +34,13 @@ while(<FD>) {
}
close(FD);

$filename = $ARGV[0]; $filename =~ /(.*)\.([^.]+)$/;
$basename = $1;
$extname  = $2;
my $filename = $ARGV[0];
$filename =~ /(.*)\.([^.]+)$/;
my $basename = $1;
my $extname  = $2;

if ($extname =~ /dll/i)	{ $description = "OpenSSL shared library"; }
else			{ $description = "OpenSSL application";    }
my $description = "OpenSSL application";
$description = "OpenSSL shared library" if $extname =~ /dll/i;

print <<___;
#include <winver.h>