Commit 180df315 authored by Richard Levitte's avatar Richard Levitte
Browse files

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



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: default avatarAndy Polyakov <appro@openssl.org>
parent f8d9d6e4

util/TLSProxy/ClientHello.pm

+2 −1
Original line number Diff line number Diff line
@@ -55,7 +55,8 @@ use strict; 


package TLSProxy::ClientHello;



use parent 'TLSProxy::Message';

use vars '@ISA';

push @ISA, 'TLSProxy::Message';



sub new

{

util/TLSProxy/NewSessionTicket.pm

+2 −1
Original line number Diff line number Diff line
@@ -54,7 +54,8 @@ use strict; 


package TLSProxy::NewSessionTicket;



use parent 'TLSProxy::Message';

use vars '@ISA';

push @ISA, 'TLSProxy::Message';



sub new

{

util/TLSProxy/ServerHello.pm

+2 −1
Original line number Diff line number Diff line
@@ -55,7 +55,8 @@ use strict; 


package TLSProxy::ServerHello;



use parent 'TLSProxy::Message';

use vars '@ISA';

push @ISA, 'TLSProxy::Message';



sub new

{

util/TLSProxy/ServerKeyExchange.pm

+2 −1
Original line number Diff line number Diff line
@@ -55,7 +55,8 @@ use strict; 


package TLSProxy::ServerKeyExchange;



use parent 'TLSProxy::Message';

use vars '@ISA';

push @ISA, 'TLSProxy::Message';



sub new

{

util/dofile.pl

+3 −1
Original line number Diff line number Diff line
@@ -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 {