diff --git a/t/protocol_directnic.pl b/t/protocol_directnic.pl index 855500d..0e9f981 100644 --- a/t/protocol_directnic.pl +++ b/t/protocol_directnic.pl @@ -32,7 +32,7 @@ diag("started IPv4 HTTP server running at " . $httpd->endpoint()); { package Logger; - BEGIN { push(our @ISA, qw(ddclient::Logger)); } + use parent qw(-norequire ddclient::Logger); sub new { my ($class, $parent) = @_; my $self = $class->SUPER::new(undef, $parent); diff --git a/t/protocol_dyndns2.pl b/t/protocol_dyndns2.pl index 6cc4e2a..198363d 100644 --- a/t/protocol_dyndns2.pl +++ b/t/protocol_dyndns2.pl @@ -24,7 +24,7 @@ diag("started IPv4 HTTP server running at " . $httpd->endpoint()); { package Logger; - BEGIN { push(our @ISA, qw(ddclient::Logger)); } + use parent qw(-norequire ddclient::Logger); sub new { my ($class, $parent) = @_; my $self = $class->SUPER::new(undef, $parent);