libdpkg-perl: Import Exporter with ‘use base’

We don't need to set @ISA now.

scripts/Dpkg/Arch.pm

@@ -3,8 +3,7 @@ package Dpkg::Arch;
 use strict;
 use warnings;
 
-use Exporter;
-our @ISA = qw(Exporter);
+use base qw(Exporter);
 our @EXPORT_OK = qw(get_raw_build_arch get_raw_host_arch
                     get_build_arch get_host_arch get_gcc_host_gnu_type
                     get_valid_arches debarch_eq debarch_is

scripts/Dpkg/Cdata.pm

@@ -23,8 +23,7 @@ use Dpkg::Gettext;
 use Dpkg::ErrorHandling;
 use Dpkg::Fields qw(capit);;
 
-use Exporter;
-our @ISA = qw(Exporter);
+use base qw(Exporter);
 our @EXPORT = qw(parsecdata);
 
 =head1 NAME

scripts/Dpkg/Deps.pm

@@ -73,7 +73,7 @@ use Dpkg::Arch qw(get_host_arch);
 use Dpkg::ErrorHandling;
 use Dpkg::Gettext;
 
-our @ISA = qw(Exporter);
+use base qw(Exporter);
 our @EXPORT_OK = qw(@pkg_dep_fields @src_dep_fields %dep_field_type
 		    %relation_ordering);
 

scripts/Dpkg/Fields.pm

@@ -3,10 +3,9 @@ package Dpkg::Fields;
 use strict;
 use warnings;
 
-use Exporter;
+use base qw(Exporter);
 use Dpkg::Deps qw(@src_dep_fields @pkg_dep_fields);
 
-our @ISA = qw(Exporter);
 our @EXPORT_OK = qw(capit %control_src_fields %control_pkg_fields
     $control_src_field_regex $control_pkg_field_regex);
 our %EXPORT_TAGS = ('list' => [qw(%control_src_fields %control_pkg_fields

scripts/Dpkg/IPC.pm

@@ -23,8 +23,7 @@ use warnings;
 use Dpkg::ErrorHandling;
 use Dpkg::Gettext;
 
-use Exporter;
-our @ISA = qw(Exporter);
+use base qw(Exporter);
 our @EXPORT = qw(fork_and_exec wait_child);
 
 =head1 NAME

scripts/Dpkg/Path.pm

@@ -19,10 +19,9 @@ package Dpkg::Path;
 use strict;
 use warnings;
 
-use Exporter;
+use base qw(Exporter);
 use File::Spec;
 use Cwd qw(realpath);
-our @ISA = qw(Exporter);
 our @EXPORT_OK = qw(get_pkg_root_dir relative_to_pkg_root
 		    guess_pkg_root_dir check_files_are_the_same
 		    resolve_symlink canonpath);

scripts/Dpkg/Source/Functions.pm

@@ -3,8 +3,7 @@ package Dpkg::Source::Functions;
 use strict;
 use warnings;
 
-use Exporter;
-our @ISA = qw(Exporter);
+use base qw(Exporter);
 our @EXPORT_OK = qw(erasedir fixperms is_binary);
 
 use Dpkg::ErrorHandling;

scripts/Dpkg/Vars.pm

@@ -22,8 +22,7 @@ use warnings;
 use Dpkg::ErrorHandling;
 use Dpkg::Gettext;
 
-use Exporter;
-our @ISA = qw(Exporter);
+use base qw(Exporter);
 our @EXPORT = qw($sourcepackage set_source_package);
 
 our $sourcepackage;

scripts/Dpkg/Vendor.pm

@@ -23,8 +23,7 @@ use Dpkg::ErrorHandling;
 use Dpkg::Gettext;
 use Dpkg::Cdata;
 
-use Exporter;
-our @ISA = qw(Exporter);
+use base qw(Exporter);
 our @EXPORT_OK = qw(get_vendor_info get_current_vendor get_vendor_file
                     get_vendor_object run_vendor_hook);
 

scripts/Dpkg/Version.pm

@@ -24,8 +24,7 @@ use warnings;
 use Dpkg::ErrorHandling;
 use Dpkg::Gettext;
 
-use Exporter;
-our @ISA = qw(Exporter);
+use base qw(Exporter);
 our @EXPORT_OK = qw(vercmp compare_versions check_version parseversion);
 
 =head1 NAME