From 20ec9098cb5fc91e79fc5e4c4a161dc211f91983 Mon Sep 17 00:00:00 2001 From: Oliver Tappe Date: Sun, 13 May 2007 19:01:39 +0000 Subject: * simplified declaration of base classes via 'use base' * simplified checking for correct API-version of modules git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1072 95ad53e4-c205-0410-b2fa-d234c58c8868 --- installer/OpenSLX/OSExport/Distro/Any.pm | 6 +++--- installer/OpenSLX/OSExport/Distro/Debian.pm | 6 +++--- installer/OpenSLX/OSExport/Distro/Fedora.pm | 6 +++--- installer/OpenSLX/OSExport/Distro/Gentoo.pm | 6 +++--- installer/OpenSLX/OSExport/Distro/SUSE.pm | 6 +++--- installer/OpenSLX/OSExport/Distro/Ubuntu.pm | 6 +++--- installer/OpenSLX/OSExport/ExportType/NBD_Squash.pm | 6 +++--- installer/OpenSLX/OSExport/ExportType/NFS.pm | 6 +++--- installer/OpenSLX/OSSetup/Distro/Any_Clone.pm | 6 +++--- installer/OpenSLX/OSSetup/Distro/Fedora_6.pm | 6 +++--- installer/OpenSLX/OSSetup/Distro/Fedora_6_x86_64.pm | 6 +++--- installer/OpenSLX/OSSetup/Distro/SUSE_10_1.pm | 6 +++--- installer/OpenSLX/OSSetup/Distro/SUSE_10_1_x86_64.pm | 6 +++--- installer/OpenSLX/OSSetup/Distro/SUSE_10_2.pm | 6 +++--- installer/OpenSLX/OSSetup/Distro/SUSE_10_2_x86_64.pm | 6 +++--- installer/OpenSLX/OSSetup/MetaPackager/smart.pm | 6 +++--- installer/OpenSLX/OSSetup/MetaPackager/yum.pm | 6 +++--- installer/OpenSLX/OSSetup/Packager/rpm.pm | 6 +++--- 18 files changed, 54 insertions(+), 54 deletions(-) (limited to 'installer') diff --git a/installer/OpenSLX/OSExport/Distro/Any.pm b/installer/OpenSLX/OSExport/Distro/Any.pm index f98fecac..828e4990 100644 --- a/installer/OpenSLX/OSExport/Distro/Any.pm +++ b/installer/OpenSLX/OSExport/Distro/Any.pm @@ -13,14 +13,14 @@ # ----------------------------------------------------------------------------- package OpenSLX::OSExport::Distro::Any; -use vars qw(@ISA $VERSION); -@ISA = ('OpenSLX::OSExport::Distro::Base'); +use vars qw($VERSION); +use base qw(OpenSLX::OSExport::Distro::Base); $VERSION = 1.01; # API-version . implementation-version use strict; use Carp; use OpenSLX::Basics; -use OpenSLX::OSExport::Distro::Base 1.01; +use OpenSLX::OSExport::Distro::Base 1; ################################################################################ ### implementation diff --git a/installer/OpenSLX/OSExport/Distro/Debian.pm b/installer/OpenSLX/OSExport/Distro/Debian.pm index 2cb107fc..35e7f4c9 100644 --- a/installer/OpenSLX/OSExport/Distro/Debian.pm +++ b/installer/OpenSLX/OSExport/Distro/Debian.pm @@ -13,14 +13,14 @@ # ----------------------------------------------------------------------------- package OpenSLX::OSExport::Distro::Debian; -use vars qw(@ISA $VERSION); -@ISA = ('OpenSLX::OSExport::Distro::Base'); +use vars qw($VERSION); +use base qw(OpenSLX::OSExport::Distro::Base); $VERSION = 1.01; # API-version . implementation-version use strict; use Carp; use OpenSLX::Basics; -use OpenSLX::OSExport::Distro::Base 1.01; +use OpenSLX::OSExport::Distro::Base 1; ################################################################################ ### implementation diff --git a/installer/OpenSLX/OSExport/Distro/Fedora.pm b/installer/OpenSLX/OSExport/Distro/Fedora.pm index 2e986168..9374678d 100644 --- a/installer/OpenSLX/OSExport/Distro/Fedora.pm +++ b/installer/OpenSLX/OSExport/Distro/Fedora.pm @@ -13,14 +13,14 @@ # ----------------------------------------------------------------------------- package OpenSLX::OSExport::Distro::Fedora; -use vars qw(@ISA $VERSION); -@ISA = ('OpenSLX::OSExport::Distro::Base'); +use vars qw($VERSION); +use base qw(OpenSLX::OSExport::Distro::Base); $VERSION = 1.01; # API-version . implementation-version use strict; use Carp; use OpenSLX::Basics; -use OpenSLX::OSExport::Distro::Base 1.01; +use OpenSLX::OSExport::Distro::Base 1; ################################################################################ ### implementation diff --git a/installer/OpenSLX/OSExport/Distro/Gentoo.pm b/installer/OpenSLX/OSExport/Distro/Gentoo.pm index 7a1eb266..c7d4575f 100644 --- a/installer/OpenSLX/OSExport/Distro/Gentoo.pm +++ b/installer/OpenSLX/OSExport/Distro/Gentoo.pm @@ -13,14 +13,14 @@ # ----------------------------------------------------------------------------- package OpenSLX::OSExport::Distro::Gentoo; -use vars qw(@ISA $VERSION); -@ISA = ('OpenSLX::OSExport::Distro::Base'); +use vars qw($VERSION); +use base qw(OpenSLX::OSExport::Distro::Base); $VERSION = 1.01; # API-version . implementation-version use strict; use Carp; use OpenSLX::Basics; -use OpenSLX::OSExport::Distro::Base 1.01; +use OpenSLX::OSExport::Distro::Base 1; ################################################################################ ### implementation diff --git a/installer/OpenSLX/OSExport/Distro/SUSE.pm b/installer/OpenSLX/OSExport/Distro/SUSE.pm index 923f1de8..96164b2d 100644 --- a/installer/OpenSLX/OSExport/Distro/SUSE.pm +++ b/installer/OpenSLX/OSExport/Distro/SUSE.pm @@ -13,14 +13,14 @@ # ----------------------------------------------------------------------------- package OpenSLX::OSExport::Distro::SUSE; -use vars qw(@ISA $VERSION); -@ISA = ('OpenSLX::OSExport::Distro::Base'); +use vars qw($VERSION); +use base qw(OpenSLX::OSExport::Distro::Base); $VERSION = 1.01; # API-version . implementation-version use strict; use Carp; use OpenSLX::Basics; -use OpenSLX::OSExport::Distro::Base 1.01; +use OpenSLX::OSExport::Distro::Base 1; ################################################################################ ### implementation diff --git a/installer/OpenSLX/OSExport/Distro/Ubuntu.pm b/installer/OpenSLX/OSExport/Distro/Ubuntu.pm index 9b39df80..409bb0cf 100644 --- a/installer/OpenSLX/OSExport/Distro/Ubuntu.pm +++ b/installer/OpenSLX/OSExport/Distro/Ubuntu.pm @@ -13,14 +13,14 @@ # ----------------------------------------------------------------------------- package OpenSLX::OSExport::Distro::Ubuntu; -use vars qw(@ISA $VERSION); -@ISA = ('OpenSLX::OSExport::Distro::Base'); +use vars qw($VERSION); +use base qw(OpenSLX::OSExport::Distro::Base); $VERSION = 1.01; # API-version . implementation-version use strict; use Carp; use OpenSLX::Basics; -use OpenSLX::OSExport::Distro::Base 1.01; +use OpenSLX::OSExport::Distro::Base 1; ################################################################################ ### implementation diff --git a/installer/OpenSLX/OSExport/ExportType/NBD_Squash.pm b/installer/OpenSLX/OSExport/ExportType/NBD_Squash.pm index a581bfcc..f721d6d2 100644 --- a/installer/OpenSLX/OSExport/ExportType/NBD_Squash.pm +++ b/installer/OpenSLX/OSExport/ExportType/NBD_Squash.pm @@ -13,8 +13,8 @@ # ----------------------------------------------------------------------------- package OpenSLX::OSExport::ExportType::NBD_Squash; -use vars qw(@ISA $VERSION); -@ISA = ('OpenSLX::OSExport::ExportType::Base'); +use vars qw($VERSION); +use base qw(OpenSLX::OSExport::ExportType::Base); $VERSION = 1.01; # API-version . implementation-version use strict; @@ -22,7 +22,7 @@ use Carp; use File::Basename; use OpenSLX::Basics; use OpenSLX::ConfigDB qw(:support); -use OpenSLX::OSExport::ExportType::Base 1.01; +use OpenSLX::OSExport::ExportType::Base 1; use OpenSLX::Utils; ################################################################################ diff --git a/installer/OpenSLX/OSExport/ExportType/NFS.pm b/installer/OpenSLX/OSExport/ExportType/NFS.pm index 25cea211..e3cd9cce 100644 --- a/installer/OpenSLX/OSExport/ExportType/NFS.pm +++ b/installer/OpenSLX/OSExport/ExportType/NFS.pm @@ -13,8 +13,8 @@ # ----------------------------------------------------------------------------- package OpenSLX::OSExport::ExportType::NFS; -use vars qw(@ISA $VERSION); -@ISA = ('OpenSLX::OSExport::ExportType::Base'); +use vars qw($VERSION); +use base qw(OpenSLX::OSExport::ExportType::Base); $VERSION = 1.01; # API-version . implementation-version use strict; @@ -23,7 +23,7 @@ use File::Basename; use OpenSLX::Basics; use OpenSLX::ConfigDB qw(:support); use OpenSLX::Utils; -use OpenSLX::OSExport::ExportType::Base 1.01; +use OpenSLX::OSExport::ExportType::Base 1; ################################################################################ ### interface methods diff --git a/installer/OpenSLX/OSSetup/Distro/Any_Clone.pm b/installer/OpenSLX/OSSetup/Distro/Any_Clone.pm index 315d3c43..80651a15 100644 --- a/installer/OpenSLX/OSSetup/Distro/Any_Clone.pm +++ b/installer/OpenSLX/OSSetup/Distro/Any_Clone.pm @@ -13,14 +13,14 @@ # ----------------------------------------------------------------------------- package OpenSLX::OSSetup::Distro::Any_Clone; -use vars qw(@ISA $VERSION); -@ISA = ('OpenSLX::OSSetup::Distro::Base'); +use vars qw($VERSION); +use base qw(OpenSLX::OSSetup::Distro::Base); $VERSION = 1.01; # API-version . implementation-version use strict; use Carp; use OpenSLX::Basics; -use OpenSLX::OSSetup::Distro::Base 1.01; +use OpenSLX::OSSetup::Distro::Base 1; ################################################################################ ### implementation diff --git a/installer/OpenSLX/OSSetup/Distro/Fedora_6.pm b/installer/OpenSLX/OSSetup/Distro/Fedora_6.pm index 31d2d145..f2e38868 100644 --- a/installer/OpenSLX/OSSetup/Distro/Fedora_6.pm +++ b/installer/OpenSLX/OSSetup/Distro/Fedora_6.pm @@ -13,14 +13,14 @@ # ----------------------------------------------------------------------------- package OpenSLX::OSSetup::Distro::Fedora_6; -use vars qw(@ISA $VERSION); -@ISA = ('OpenSLX::OSSetup::Distro::Base'); +use vars qw($VERSION); +use base qw(OpenSLX::OSSetup::Distro::Base); $VERSION = 1.01; # API-version . implementation-version use strict; use Carp; use OpenSLX::Basics; -use OpenSLX::OSSetup::Distro::Base 1.01; +use OpenSLX::OSSetup::Distro::Base 1; ################################################################################ ### implementation diff --git a/installer/OpenSLX/OSSetup/Distro/Fedora_6_x86_64.pm b/installer/OpenSLX/OSSetup/Distro/Fedora_6_x86_64.pm index 24eb512d..00125f47 100644 --- a/installer/OpenSLX/OSSetup/Distro/Fedora_6_x86_64.pm +++ b/installer/OpenSLX/OSSetup/Distro/Fedora_6_x86_64.pm @@ -13,14 +13,14 @@ # ----------------------------------------------------------------------------- package OpenSLX::OSSetup::Distro::Fedora_6_x86_64; -use vars qw(@ISA $VERSION); -@ISA = ('OpenSLX::OSSetup::Distro::Base'); +use vars qw($VERSION); +use base qw(OpenSLX::OSSetup::Distro::Base); $VERSION = 1.01; # API-version . implementation-version use strict; use Carp; use OpenSLX::Basics; -use OpenSLX::OSSetup::Distro::Base 1.01; +use OpenSLX::OSSetup::Distro::Base 1; ################################################################################ ### implementation diff --git a/installer/OpenSLX/OSSetup/Distro/SUSE_10_1.pm b/installer/OpenSLX/OSSetup/Distro/SUSE_10_1.pm index d9fa78f6..66de610f 100644 --- a/installer/OpenSLX/OSSetup/Distro/SUSE_10_1.pm +++ b/installer/OpenSLX/OSSetup/Distro/SUSE_10_1.pm @@ -13,14 +13,14 @@ # ----------------------------------------------------------------------------- package OpenSLX::OSSetup::Distro::SUSE_10_1; -use vars qw(@ISA $VERSION); -@ISA = ('OpenSLX::OSSetup::Distro::Base'); +use vars qw($VERSION); +use base qw(OpenSLX::OSSetup::Distro::Base); $VERSION = 1.01; # API-version . implementation-version use strict; use Carp; use OpenSLX::Basics; -use OpenSLX::OSSetup::Distro::Base 1.01; +use OpenSLX::OSSetup::Distro::Base 1; ################################################################################ ### implementation diff --git a/installer/OpenSLX/OSSetup/Distro/SUSE_10_1_x86_64.pm b/installer/OpenSLX/OSSetup/Distro/SUSE_10_1_x86_64.pm index fd74f4cd..7675be79 100644 --- a/installer/OpenSLX/OSSetup/Distro/SUSE_10_1_x86_64.pm +++ b/installer/OpenSLX/OSSetup/Distro/SUSE_10_1_x86_64.pm @@ -13,14 +13,14 @@ # ----------------------------------------------------------------------------- package OpenSLX::OSSetup::Distro::SUSE_10_1_x86_64; -use vars qw(@ISA $VERSION); -@ISA = ('OpenSLX::OSSetup::Distro::Base'); +use vars qw($VERSION); +use base qw(OpenSLX::OSSetup::Distro::Base); $VERSION = 1.01; # API-version . implementation-version use strict; use Carp; use OpenSLX::Basics; -use OpenSLX::OSSetup::Distro::Base 1.01; +use OpenSLX::OSSetup::Distro::Base 1; ################################################################################ ### implementation diff --git a/installer/OpenSLX/OSSetup/Distro/SUSE_10_2.pm b/installer/OpenSLX/OSSetup/Distro/SUSE_10_2.pm index f67a8fba..b65bf5f7 100644 --- a/installer/OpenSLX/OSSetup/Distro/SUSE_10_2.pm +++ b/installer/OpenSLX/OSSetup/Distro/SUSE_10_2.pm @@ -13,14 +13,14 @@ # ----------------------------------------------------------------------------- package OpenSLX::OSSetup::Distro::SUSE_10_2; -use vars qw(@ISA $VERSION); -@ISA = ('OpenSLX::OSSetup::Distro::Base'); +use vars qw($VERSION); +use base qw(OpenSLX::OSSetup::Distro::Base); $VERSION = 1.01; # API-version . implementation-version use strict; use Carp; use OpenSLX::Basics; -use OpenSLX::OSSetup::Distro::Base 1.01; +use OpenSLX::OSSetup::Distro::Base 1; ################################################################################ ### implementation diff --git a/installer/OpenSLX/OSSetup/Distro/SUSE_10_2_x86_64.pm b/installer/OpenSLX/OSSetup/Distro/SUSE_10_2_x86_64.pm index 9df9f855..aff06f2c 100644 --- a/installer/OpenSLX/OSSetup/Distro/SUSE_10_2_x86_64.pm +++ b/installer/OpenSLX/OSSetup/Distro/SUSE_10_2_x86_64.pm @@ -13,14 +13,14 @@ # ----------------------------------------------------------------------------- package OpenSLX::OSSetup::Distro::SUSE_10_2_x86_64; -use vars qw(@ISA $VERSION); -@ISA = ('OpenSLX::OSSetup::Distro::Base'); +use vars qw($VERSION); +use base qw(OpenSLX::OSSetup::Distro::Base); $VERSION = 1.01; # API-version . implementation-version use strict; use Carp; use OpenSLX::Basics; -use OpenSLX::OSSetup::Distro::Base 1.01; +use OpenSLX::OSSetup::Distro::Base 1; ################################################################################ ### implementation diff --git a/installer/OpenSLX/OSSetup/MetaPackager/smart.pm b/installer/OpenSLX/OSSetup/MetaPackager/smart.pm index 315b53d5..c4b9735d 100644 --- a/installer/OpenSLX/OSSetup/MetaPackager/smart.pm +++ b/installer/OpenSLX/OSSetup/MetaPackager/smart.pm @@ -13,14 +13,14 @@ # ----------------------------------------------------------------------------- package OpenSLX::OSSetup::MetaPackager::smart; -use vars qw(@ISA $VERSION); -@ISA = ('OpenSLX::OSSetup::MetaPackager::Base'); +use vars qw($VERSION); +use base qw(OpenSLX::OSSetup::MetaPackager::Base); $VERSION = 1.01; # API-version . implementation-version use strict; use Carp; use OpenSLX::Basics; -use OpenSLX::OSSetup::MetaPackager::Base 1.01; +use OpenSLX::OSSetup::MetaPackager::Base 1; ################################################################################ ### implementation diff --git a/installer/OpenSLX/OSSetup/MetaPackager/yum.pm b/installer/OpenSLX/OSSetup/MetaPackager/yum.pm index a6011f67..cf68122a 100644 --- a/installer/OpenSLX/OSSetup/MetaPackager/yum.pm +++ b/installer/OpenSLX/OSSetup/MetaPackager/yum.pm @@ -13,14 +13,14 @@ # ----------------------------------------------------------------------------- package OpenSLX::OSSetup::MetaPackager::yum; -use vars qw(@ISA $VERSION); -@ISA = ('OpenSLX::OSSetup::MetaPackager::Base'); +use vars qw($VERSION); +use base qw(OpenSLX::OSSetup::MetaPackager::Base); $VERSION = 1.01; # API-version . implementation-version use strict; use Carp; use OpenSLX::Basics; -use OpenSLX::OSSetup::MetaPackager::Base 1.01; +use OpenSLX::OSSetup::MetaPackager::Base 1; ################################################################################ ### implementation diff --git a/installer/OpenSLX/OSSetup/Packager/rpm.pm b/installer/OpenSLX/OSSetup/Packager/rpm.pm index 63c49e47..d689f160 100644 --- a/installer/OpenSLX/OSSetup/Packager/rpm.pm +++ b/installer/OpenSLX/OSSetup/Packager/rpm.pm @@ -13,14 +13,14 @@ # ----------------------------------------------------------------------------- package OpenSLX::OSSetup::Packager::rpm; -use vars qw(@ISA $VERSION); -@ISA = ('OpenSLX::OSSetup::Packager::Base'); +use vars qw($VERSION); +use base qw(OpenSLX::OSSetup::Packager::Base); $VERSION = 1.01; # API-version . implementation-version use strict; use Carp; use OpenSLX::Basics; -use OpenSLX::OSSetup::Packager::Base 1.01; +use OpenSLX::OSSetup::Packager::Base 1; ################################################################################ ### implementation -- cgit v1.2.3-55-g7522