mirror/openssl
2
0
Fork 0
mirror of https://github.com/openssl/openssl.git synced 2024-11-21 01:15:20 +08:00
Code Issues Packages Projects Releases Wiki Activity

Don't use 'parent' in util/dofile.pl

Browse Source 
Because we're requiring Perl 5.10.0 and the 'parent' didn't appear
before Perl 5.10.1, we need to resort to the older parent module
declaration style, modifying @ISA.

Reviewed-by: Andy Polyakov <appro@openssl.org>
This commit is contained in:
Richard Levitte 2016-02-21 22:43:29 +01:00
parent f8d9d6e48b
commit 180df315c7
5 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
util/TLSProxy/ClientHello.pm
View File

@ -55,7 +55,8 @@ use strict;
package TLSProxy::ClientHello;
use parent 'TLSProxy::Message';
use vars '@ISA';
push @ISA, 'TLSProxy::Message';
sub new
{

3
util/TLSProxy/NewSessionTicket.pm
View File

@ -54,7 +54,8 @@ use strict;
package TLSProxy::NewSessionTicket;
use parent 'TLSProxy::Message';
use vars '@ISA';
push @ISA, 'TLSProxy::Message';
sub new
{

3
util/TLSProxy/ServerHello.pm
View File

@ -55,7 +55,8 @@ use strict;
package TLSProxy::ServerHello;
use parent 'TLSProxy::Message';
use vars '@ISA';
push @ISA, 'TLSProxy::Message';
sub new
{

3
util/TLSProxy/ServerKeyExchange.pm
View File

@ -55,7 +55,8 @@ use strict;
package TLSProxy::ServerKeyExchange;
use parent 'TLSProxy::Message';
use vars '@ISA';
push @ISA, 'TLSProxy::Message';
sub new
{

4
util/dofile.pl
View File

@ -35,7 +35,9 @@ use File::Spec::Functions;
use lib catdir(dirname(__FILE__));
use with_fallback qw(Text::Template);
use parent qw/Text::Template/;
#use parent qw/Text::Template/;
use vars qw/@ISA/;
push @ISA, qw/Text::Template/;
# Override constructor
sub new {