提交 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;
package TLSProxy::ClientHello;
use parent 'TLSProxy::Message';
use vars '@ISA';
push @ISA, 'TLSProxy::Message';
sub new
{
......
......@@ -54,7 +54,8 @@ use strict;
package TLSProxy::NewSessionTicket;
use parent 'TLSProxy::Message';
use vars '@ISA';
push @ISA, 'TLSProxy::Message';
sub new
{
......
......@@ -55,7 +55,8 @@ use strict;
package TLSProxy::ServerHello;
use parent 'TLSProxy::Message';
use vars '@ISA';
push @ISA, 'TLSProxy::Message';
sub new
{
......
......@@ -55,7 +55,8 @@ use strict;
package TLSProxy::ServerKeyExchange;
use parent 'TLSProxy::Message';
use vars '@ISA';
push @ISA, 'TLSProxy::Message';
sub new
{
......
......@@ -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 {
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册