提交 180df315 编写于 作者: R Richard Levitte

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: NAndy Polyakov <appro@openssl.org>
上级 f8d9d6e4
...@@ -55,7 +55,8 @@ use strict; ...@@ -55,7 +55,8 @@ use strict;
package TLSProxy::ClientHello; package TLSProxy::ClientHello;
use parent 'TLSProxy::Message'; use vars '@ISA';
push @ISA, 'TLSProxy::Message';
sub new sub new
{ {
......
...@@ -54,7 +54,8 @@ use strict; ...@@ -54,7 +54,8 @@ use strict;
package TLSProxy::NewSessionTicket; package TLSProxy::NewSessionTicket;
use parent 'TLSProxy::Message'; use vars '@ISA';
push @ISA, 'TLSProxy::Message';
sub new sub new
{ {
......
...@@ -55,7 +55,8 @@ use strict; ...@@ -55,7 +55,8 @@ use strict;
package TLSProxy::ServerHello; package TLSProxy::ServerHello;
use parent 'TLSProxy::Message'; use vars '@ISA';
push @ISA, 'TLSProxy::Message';
sub new sub new
{ {
......
...@@ -55,7 +55,8 @@ use strict; ...@@ -55,7 +55,8 @@ use strict;
package TLSProxy::ServerKeyExchange; package TLSProxy::ServerKeyExchange;
use parent 'TLSProxy::Message'; use vars '@ISA';
push @ISA, 'TLSProxy::Message';
sub new sub new
{ {
......
...@@ -35,7 +35,9 @@ use File::Spec::Functions; ...@@ -35,7 +35,9 @@ use File::Spec::Functions;
use lib catdir(dirname(__FILE__)); use lib catdir(dirname(__FILE__));
use with_fallback qw(Text::Template); 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 # Override constructor
sub new { sub new {
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册