diff options
Diffstat (limited to 'scripts/Dpkg')
-rw-r--r-- | scripts/Dpkg/Compression/CompressedFile.pm (renamed from scripts/Dpkg/Source/CompressedFile.pm) | 2 | ||||
-rw-r--r-- | scripts/Dpkg/Index.pm | 6 | ||||
-rw-r--r-- | scripts/Dpkg/Source/Archive.pm | 2 | ||||
-rw-r--r-- | scripts/Dpkg/Source/Patch.pm | 4 |
4 files changed, 7 insertions, 7 deletions
diff --git a/scripts/Dpkg/Source/CompressedFile.pm b/scripts/Dpkg/Compression/CompressedFile.pm index 52fd8ee87..c7eae1352 100644 --- a/scripts/Dpkg/Source/CompressedFile.pm +++ b/scripts/Dpkg/Compression/CompressedFile.pm @@ -13,7 +13,7 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see <http://www.gnu.org/licenses/>. -package Dpkg::Source::CompressedFile; +package Dpkg::Compression::CompressedFile; use strict; use warnings; diff --git a/scripts/Dpkg/Index.pm b/scripts/Dpkg/Index.pm index a3dd69a23..d2e86dc99 100644 --- a/scripts/Dpkg/Index.pm +++ b/scripts/Dpkg/Index.pm @@ -21,7 +21,7 @@ use warnings; use Dpkg::Gettext; use Dpkg::ErrorHandling; use Dpkg::Control; -use Dpkg::Source::CompressedFile; +use Dpkg::Compression::CompressedFile; use overload '@{}' => sub { return $_[0]->{'order'} }, @@ -155,7 +155,7 @@ parsed. Handles compressed files transparently based on their extensions. sub load { my ($self, $file) = @_; - my $cf = Dpkg::Source::CompressedFile->new(filename => $file); + my $cf = Dpkg::Compression::CompressedFile->new(filename => $file); my $fh = $cf->open_for_read(); my $res = $self->parse($fh, $file); $cf->cleanup_after_open(); @@ -191,7 +191,7 @@ based on their extensions. sub save { my ($self, $file) = @_; - my $cf = Dpkg::Source::CompressedFile->new(filename => $file); + my $cf = Dpkg::Compression::CompressedFile->new(filename => $file); my $fh = $cf->open_for_write(); $self->output($fh); $cf->cleanup_after_open(); diff --git a/scripts/Dpkg/Source/Archive.pm b/scripts/Dpkg/Source/Archive.pm index be1c1bd56..3d0dcce96 100644 --- a/scripts/Dpkg/Source/Archive.pm +++ b/scripts/Dpkg/Source/Archive.pm @@ -29,7 +29,7 @@ use File::Basename qw(basename); use File::Spec; use Cwd; -use base 'Dpkg::Source::CompressedFile'; +use base 'Dpkg::Compression::CompressedFile'; sub create { my ($self, %opts) = @_; diff --git a/scripts/Dpkg/Source/Patch.pm b/scripts/Dpkg/Source/Patch.pm index 68e6f507d..e1b3dc24f 100644 --- a/scripts/Dpkg/Source/Patch.pm +++ b/scripts/Dpkg/Source/Patch.pm @@ -19,7 +19,7 @@ use strict; use warnings; use Dpkg; -use Dpkg::Source::CompressedFile; +use Dpkg::Compression::CompressedFile; use Dpkg::Compression::Compressor; use Dpkg::Compression; use Dpkg::Gettext; @@ -36,7 +36,7 @@ use Fcntl ':mode'; #XXX: Needed for sub-second timestamps, require recent perl #use Time::HiRes qw(stat); -use base 'Dpkg::Source::CompressedFile'; +use base 'Dpkg::Compression::CompressedFile'; sub create { my ($self, %opts) = @_; |