diff options
Diffstat (limited to 'scripts/Dpkg/Source/Package.pm')
| -rw-r--r-- | scripts/Dpkg/Source/Package.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/scripts/Dpkg/Source/Package.pm b/scripts/Dpkg/Source/Package.pm index 902b152c6..4d8351def 100644 --- a/scripts/Dpkg/Source/Package.pm +++ b/scripts/Dpkg/Source/Package.pm @@ -242,7 +242,7 @@ sub get_basename { sub find_original_tarballs { my ($self, $ext) = @_; - $ext ||= $comp_regex; + $ext ||= $compression_re_file_ext; my $basename = $self->get_basename(); my @tar; foreach my $dir (".", $self->{'basedir'}, $self->{'options'}{'origtardir'}) { @@ -332,7 +332,8 @@ sub extract { my $basename = $self->get_basename(); my ($dirname, $destdir) = fileparse($newdirectory); $destdir ||= "./"; - foreach my $orig (grep { /^\Q$basename\E\.orig(-\w+)?\.tar\.$comp_regex$/ } + my $ext = $compression_re_file_ext; + foreach my $orig (grep { /^\Q$basename\E\.orig(-\w+)?\.tar\.$ext$/ } $self->get_files()) { my $src = File::Spec->catfile($self->{'basedir'}, $orig); |