diff options
| author | Raphaël Hertzog <hertzog@debian.org> | 2010-01-22 01:46:40 +0100 |
|---|---|---|
| committer | Raphaël Hertzog <hertzog@debian.org> | 2010-01-22 01:57:39 +0100 |
| commit | efd281e8723f9e80e65cbdcefb304483c35ad963 (patch) | |
| tree | 1728db46c84f4b87446afd867e621df9496c2908 /scripts/dpkg-source.pl | |
| parent | c5fea0a576586e993ad8af3c6b2d0897297cd9f7 (diff) | |
| download | dpkg-efd281e8723f9e80e65cbdcefb304483c35ad963.tar.gz | |
Dpkg::Compression: new API based on public functions
This API change requires lots of adjustements through the source code.
Diffstat (limited to 'scripts/dpkg-source.pl')
| -rwxr-xr-x | scripts/dpkg-source.pl | 9 |
1 files changed, 5 insertions, 4 deletions
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; } |