use strict;
use IO::Uncompress::AnyInflate qw(anyinflate);
-use Dpkg::Version qw(vercmp);
+use Dpkg::Version (); # import nothing
+if ( defined $Dpkg::Version::VERSION ) {
+ *vercmp = \&Dpkg::Version::version_compare;
+} else {
+ *vercmp = \&Dpkg::Version::vercmp;
+}
use Dpkg::Arch qw(debarch_is);
use Data::Dumper;
my $pas = {};
local($/) = "\n";
- open(my $pas, '<', $pasfile);
- while(<$pas>) {
+ open(my $pasf, '<', $pasfile);
+ while(<$pasf>) {
chomp;
s,\s*#.*,,;
next unless $_;
my ($p, $c) = split(/:\s*/);
$pas->{$p} = { arch => [ split(/\s+/, $c) ], mode => substr($c, 0, 1) ne '!' };
}
- close $pas;
+ close $pasf;
my $srcs = {};
local($/) = ""; # read in paragraph mode