[Xen-devel] [OSSTEST PATCH 01/26] power: Osstest::PDU::*: drop Exporter blocks

[Ian Jackson <ian.jackson@xxxxxxxxxxxxx>]

This is all very obsolete.  These that we are removing are all empty,
and nowadays perl has `use parent'.  These changes are all textually
identical.

We will do ipmi_try in a moment: that one is special as it actually
has a parent module.

Signed-off-by: Ian Jackson <ian.jackson@xxxxxxxxxxxxx>
---
 Osstest/PDU/eth008.pm      | 11 -----------
 Osstest/PDU/guest.pm       | 11 -----------
 Osstest/PDU/ipmi.pm        | 11 -----------
 Osstest/PDU/ipmiextra.pm   | 11 -----------
 Osstest/PDU/manual.pm      | 11 -----------
 Osstest/PDU/msw.pm         | 11 -----------
 Osstest/PDU/pause.pm       | 11 -----------
 Osstest/PDU/unsupported.pm | 11 -----------
 Osstest/PDU/xenuse.pm      | 11 -----------
 9 files changed, 99 deletions(-)

diff --git a/Osstest/PDU/eth008.pm b/Osstest/PDU/eth008.pm
index 12f0bfb6..bd57edbb 100644
--- a/Osstest/PDU/eth008.pm
+++ b/Osstest/PDU/eth008.pm
@@ -23,17 +23,6 @@ use Osstest;
 use Osstest::TestSupport;
 use LWP::UserAgent;
 
-BEGIN {
-    use Exporter ();
-    our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
-    $VERSION     = 1.00;
-    @ISA         = qw(Exporter);
-    @EXPORT      = qw();
-    %EXPORT_TAGS = ( );
-
-    @EXPORT_OK   = qw();
-}
-
 sub new {
     my ($class, $ho, $methname, $pdu, $user, $pass, $port, @opts) = @_;
     return bless { Host => $ho,
diff --git a/Osstest/PDU/guest.pm b/Osstest/PDU/guest.pm
index b708af5e..61d9dcd5 100755
--- a/Osstest/PDU/guest.pm
+++ b/Osstest/PDU/guest.pm
@@ -25,17 +25,6 @@ use Osstest;
 use Osstest::TestSupport;
 use IO::File;
 
-BEGIN {
-    use Exporter ();
-    our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
-    $VERSION     = 1.00;
-    @ISA         = qw(Exporter);
-    @EXPORT      = qw();
-    %EXPORT_TAGS = ( );
-
-    @EXPORT_OK   = qw();
-}
-
 sub new {
     my ($class, $ho) = @_;
     return bless { Target => $ho }, $class;
diff --git a/Osstest/PDU/ipmi.pm b/Osstest/PDU/ipmi.pm
index d411d970..ceb4cf03 100644
--- a/Osstest/PDU/ipmi.pm
+++ b/Osstest/PDU/ipmi.pm
@@ -23,17 +23,6 @@ use Osstest;
 use Osstest::TestSupport;
 use IO::File;
 
-BEGIN {
-    use Exporter ();
-    our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
-    $VERSION     = 1.00;
-    @ISA         = qw(Exporter);
-    @EXPORT      = qw();
-    %EXPORT_TAGS = ( );
-
-    @EXPORT_OK   = qw();
-}
-
 sub new {
     my ($class, $ho, $methname, $mgmt, $user, $pass, @opts) = @_;
     $user ||= get_host_property($ho, 'IpmiUser') || 'ADMIN';
diff --git a/Osstest/PDU/ipmiextra.pm b/Osstest/PDU/ipmiextra.pm
index a10cd4d0..d4515e34 100644
--- a/Osstest/PDU/ipmiextra.pm
+++ b/Osstest/PDU/ipmiextra.pm
@@ -23,17 +23,6 @@ use Osstest;
 use Osstest::TestSupport;
 use IO::File;
 
-BEGIN {
-    use Exporter ();
-    our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
-    $VERSION     = 1.00;
-    @ISA         = qw(Exporter);
-    @EXPORT      = qw();
-    %EXPORT_TAGS = ( );
-
-    @EXPORT_OK   = qw();
-}
-
 sub new {
     my ($class, $ho, $methname, $when, $mgmt, $user, $pass, @opts) = @_;
     return bless { Host => $ho,
diff --git a/Osstest/PDU/manual.pm b/Osstest/PDU/manual.pm
index 505b9b6b..28d0b8a1 100644
--- a/Osstest/PDU/manual.pm
+++ b/Osstest/PDU/manual.pm
@@ -23,17 +23,6 @@ use warnings;
 use Osstest;
 use IO::File;
 
-BEGIN {
-    use Exporter ();
-    our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
-    $VERSION     = 1.00;
-    @ISA         = qw(Exporter);
-    @EXPORT      = qw();
-    %EXPORT_TAGS = ( );
-
-    @EXPORT_OK   = qw();
-}
-
 our $tty;
 
 sub new {
diff --git a/Osstest/PDU/msw.pm b/Osstest/PDU/msw.pm
index c159cc3c..1645b5f6 100644
--- a/Osstest/PDU/msw.pm
+++ b/Osstest/PDU/msw.pm
@@ -22,17 +22,6 @@ use warnings;
 
 use Osstest;
 
-BEGIN {
-    use Exporter ();
-    our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
-    $VERSION     = 1.00;
-    @ISA         = qw(Exporter);
-    @EXPORT      = qw();
-    %EXPORT_TAGS = ( );
-
-    @EXPORT_OK   = qw();
-}
-
 sub new {
     my ($class, $ho, $methname, @args) = @_;
 
diff --git a/Osstest/PDU/pause.pm b/Osstest/PDU/pause.pm
index b5f0322f..aaa77c30 100644
--- a/Osstest/PDU/pause.pm
+++ b/Osstest/PDU/pause.pm
@@ -23,17 +23,6 @@ use Osstest;
 use Osstest::TestSupport;
 use IO::File;
 
-BEGIN {
-    use Exporter ();
-    our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
-    $VERSION     = 1.00;
-    @ISA         = qw(Exporter);
-    @EXPORT      = qw();
-    %EXPORT_TAGS = ( );
-
-    @EXPORT_OK   = qw();
-}
-
 sub new {
     my ($class, $ho, $methname, $on, $off) = @_;
     if (!defined $on) {
diff --git a/Osstest/PDU/unsupported.pm b/Osstest/PDU/unsupported.pm
index 9f44aab5..8627f452 100644
--- a/Osstest/PDU/unsupported.pm
+++ b/Osstest/PDU/unsupported.pm
@@ -22,17 +22,6 @@ use warnings;
 
 use Osstest;
 
-BEGIN {
-    use Exporter ();
-    our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
-    $VERSION     = 1.00;
-    @ISA         = qw(Exporter);
-    @EXPORT      = qw();
-    %EXPORT_TAGS = ( );
-
-    @EXPORT_OK   = qw();
-}
-
 our $tty;
 
 sub new {
diff --git a/Osstest/PDU/xenuse.pm b/Osstest/PDU/xenuse.pm
index 6b0503fa..3071b663 100644
--- a/Osstest/PDU/xenuse.pm
+++ b/Osstest/PDU/xenuse.pm
@@ -24,17 +24,6 @@ use Osstest;
 use Osstest::TestSupport;
 use IO::File;
 
-BEGIN {
-    use Exporter ();
-    our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
-    $VERSION     = 1.00;
-    @ISA         = qw(Exporter);
-    @EXPORT      = qw();
-    %EXPORT_TAGS = ( );
-
-    @EXPORT_OK   = qw();
-}
-
 sub new {
     my ($class, $ho) = @_;
     return bless { Host => $ho }, $class;
-- 
2.11.0


_______________________________________________
Xen-devel mailing list
Xen-devel@xxxxxxxxxxxxxxxxxxxx
https://lists.xenproject.org/mailman/listinfo/xen-devel