Dpkg::Compression: New module with compression variables from Dpkg

ChangeLog

@@ -1,3 +1,15 @@
+2007-12-27  Guillem Jover  <guillem@debian.org>
+
+	* scripts/Dpkg.pm (%EXPORT_TAGS, @EXPORT_OK): Remove.
+	(@comp_supported, %comp_supported, %comp_ext, $comp_regex): Move
+	variables ...
+	* scripts/Dpkg/Compression.pm: ... here. New file.
+	* scripts/dpkg-genchanges.pl: Use new module Dpkg::Compression
+	instead of tag from Dpkg.
+	* scripts/dpkg-source.pl: Likewise
+	* scripts/Makefile.am (nobase_dist_perllib_DATA): Add
+	'Dpkg/Compression.pm'.
+
 2007-12-27  Raphael Hertzog  <hertzog@debian.org>
 
 	* scripts/Dpkg/Shlibs/SymbolFile.pm: Blacklist some armel specific

debian/changelog

@@ -6,6 +6,9 @@ dpkg (1.14.15) UNRELEASED; urgency=low
   * Blacklist armel-specific symbols in dpkg-gensymbols. Reported by Riku
     Voipio. Closes: #457964
 
+  [ Guillem Jover ]
+  * Move compression related variables to a new Dpkg::Compression module.
+
   [ Updated dpkg translations ]
   * Norwegian Bokmål (Hans Fredrik Nordhaug). Closes: #457918
 

debian/dpkg-dev.install

@@ -64,6 +64,7 @@ usr/share/man/*/*/dpkg-source.1
 usr/share/man/*/dpkg-source.1
 usr/share/perl5/Dpkg/Arch.pm
 usr/share/perl5/Dpkg/BuildOptions.pm
+usr/share/perl5/Dpkg/Compression.pm
 usr/share/perl5/Dpkg/ErrorHandling.pm
 usr/share/perl5/Dpkg/Deps.pm
 usr/share/perl5/Dpkg/Fields.pm

scripts/Dpkg.pm

@@ -5,9 +5,6 @@ use warnings;
 
 use base qw(Exporter);
 our @EXPORT = qw($version $progname $admindir $dpkglibdir $pkgdatadir);
-our %EXPORT_TAGS = ( 'compression' =>
-		     [ qw(@comp_supported %comp_supported %comp_ext $comp_regex) ] );
-our @EXPORT_OK = @{$EXPORT_TAGS{compression}};
 
 our ($progname) = $0 =~ m#(?:.*/)?([^/]*)#;
 
@@ -17,10 +14,4 @@ our $admindir = "/var/lib/dpkg";
 our $dpkglibdir = ".";
 our $pkgdatadir = "..";
 
-# Compression
-our @comp_supported = qw(gzip bzip2 lzma);
-our %comp_supported = map { $_ => 1 } @comp_supported;
-our %comp_ext = ( gzip => 'gz', bzip2 => 'bz2', lzma => 'lzma' );
-our $comp_regex = '(?:gz|bz2|lzma)';
-
 1;

scripts/Dpkg/Compression.pm

@@ -0,0 +1,14 @@
+package Dpkg::Compression;
+
+use strict;
+use warnings;
+
+use base qw(Exporter);
+our @EXPORT = qw(@comp_supported %comp_supported %comp_ext $comp_regex);
+
+our @comp_supported = qw(gzip bzip2 lzma);
+our %comp_supported = map { $_ => 1 } @comp_supported;
+our %comp_ext = ( gzip => 'gz', bzip2 => 'bz2', lzma => 'lzma' );
+our $comp_regex = '(?:gz|bz2|lzma)';
+
+1;

scripts/Makefile.am

@@ -79,6 +79,7 @@ perllibdir = $(PERL_LIBDIR)
 nobase_dist_perllib_DATA = \
 	Dpkg/Arch.pm \
 	Dpkg/BuildOptions.pm \
+	Dpkg/Compression.pm \
 	Dpkg/ErrorHandling.pm \
 	Dpkg/Deps.pm \
 	Dpkg/Fields.pm \

scripts/dpkg-genchanges.pl

@@ -6,12 +6,13 @@ use warnings;
 use POSIX;
 use POSIX qw(:errno_h :signal_h);
 use English;
-use Dpkg qw(:DEFAULT :compression);
+use Dpkg;
 use Dpkg::Gettext;
 use Dpkg::ErrorHandling qw(warning error failure unknown internerr syserr
                            subprocerr usageerr);
 use Dpkg::Arch qw(get_host_arch debarch_eq debarch_is);
 use Dpkg::Fields qw(capit set_field_importance sort_field_by_importance);
+use Dpkg::Compression;
 
 push(@INC,$dpkglibdir);
 require 'controllib.pl';

scripts/dpkg-source.pl

@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Dpkg qw(:DEFAULT :compression);
+use Dpkg;
 use Dpkg::Gettext;
 use Dpkg::ErrorHandling qw(warning warnerror error failure unknown
                            internerr syserr subprocerr usageerr
@@ -11,6 +11,7 @@ use Dpkg::ErrorHandling qw(warning warnerror error failure unknown
 use Dpkg::Arch qw(debarch_eq);
 use Dpkg::Deps qw(@src_dep_fields %dep_field_type);
 use Dpkg::Fields qw(capit set_field_importance);
+use Dpkg::Compression;
 
 my @filesinarchive;
 my %dirincluded;