From efd281e8723f9e80e65cbdcefb304483c35ad963 Mon Sep 17 00:00:00 2001 From: Raphaël Hertzog Date: Fri, 22 Jan 2010 01:46:40 +0100 Subject: Dpkg::Compression: new API based on public functions This API change requires lots of adjustements through the source code. --- scripts/dpkg-source.pl | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'scripts/dpkg-source.pl') diff --git a/scripts/dpkg-source.pl b/scripts/dpkg-source.pl index 5f78feec1..043238f96 100755 --- a/scripts/dpkg-source.pl +++ b/scripts/dpkg-source.pl @@ -60,7 +60,7 @@ my %options = ( # Compression related compression => $Dpkg::Compression::Compressor::default_compression, comp_level => $Dpkg::Compression::Compressor::default_compression_level, - comp_ext => $comp_ext{$Dpkg::Compression::Compressor::default_compression}, + comp_ext => compression_get_property($Dpkg::Compression::Compressor::default_compression, "file_ext"), # Ignore files tar_ignore => [], diff_ignore_regexp => '', @@ -126,9 +126,9 @@ while (@options) { } elsif (m/^-(?:Z|-compression=)(.*)$/) { my $compression = $1; $options{'compression'} = $compression; - $options{'comp_ext'} = $comp_ext{$compression}; + $options{'comp_ext'} = compression_get_property($compression, "file_ext"); usageerr(_g("%s is not a supported compression"), $compression) - unless $comp_supported{$compression}; + unless compression_is_supported($compression); Dpkg::Compression::Compressor->set_default_compression($compression); } elsif (m/^-(?:z|-compression-level=)(.*)$/) { my $comp_level = $1; @@ -449,7 +449,8 @@ See dpkg-source(1) for more info.") . "\n", $progname, $Dpkg::Source::Package::diff_ignore_default_regexp, join(' ', map { "-I$_" } @Dpkg::Source::Package::tar_ignore_default_pattern), - $Dpkg::Compression::Compressor::default_compression, "@comp_supported", + $Dpkg::Compression::Compressor::default_compression, + join(" ", compression_get_list()), $Dpkg::Compression::Compressor::default_compression_level; } -- cgit v1.2.3