소스 검색

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: Andy Polyakov <appro@openssl.org>
Richard Levitte 8 년 전
부모
커밋
180df315c7
5개의 변경된 파일11개의 추가작업 그리고 5개의 파일을 삭제
  1. 2 1
      util/TLSProxy/ClientHello.pm
  2. 2 1
      util/TLSProxy/NewSessionTicket.pm
  3. 2 1
      util/TLSProxy/ServerHello.pm
  4. 2 1
      util/TLSProxy/ServerKeyExchange.pm
  5. 3 1
      util/dofile.pl

+ 2 - 1
util/TLSProxy/ClientHello.pm

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

+ 2 - 1
util/TLSProxy/NewSessionTicket.pm

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

+ 2 - 1
util/TLSProxy/ServerHello.pm

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

+ 2 - 1
util/TLSProxy/ServerKeyExchange.pm

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

+ 3 - 1
util/dofile.pl

@@ -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 {