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.jack...@eu.citrix.com>
---
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@lists.xenproject.org
https://lists.xenproject.org/mailman/listinfo/xen-devel
