← Back to branch summary

~ubuntu-branches/ubuntu/precise/pristine-tar/precise-updates

« back to all changes in this revision

Viewing changes to Pristine/Tar/Delta/Tarball.pm

  • Committer: Bazaar Package Importer
  • Author(s): Joey Hess
  • Date: 2010-08-19 16:36:25 UTC
  • Revision ID: james.westby@ubuntu.com-20100819163625-y78g4vegbjm1n7mw
Tags: 1.10
http://bugs.debian.org/498760
* pristine-gz gengz: Bugfix: Always remove uncompressed input file.
* Large refactoring and modularization. (Thanks Gabriel de Perthuis
  for inspiration for this.))
* Remove environment variables used by tar, gz, and bzip2, to avoid
  local environment settings possibly breaking things.
  Closes: #498760 (probably; thanks Ralph Lange for analysis)
* Lintian fixes.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Pristine/Tar/Delta/Tarball.pm
 
1
#!/usr/bin/perl
 
2
# pristine-tar delta files formatted as tarballs
 
3
package Pristine::Tar::Delta::Tarball;
 
4
 
 
5
use Pristine::Tar;
 
6
use Pristine::Tar::Delta;
 
7
use File::Basename;
 
8
use warnings;
 
9
use strict;
 
10
 
 
11
sub write {
 
12
        my $class=shift;
 
13
        my $deltafile=shift;
 
14
        my $delta=shift;
 
15
 
 
16
        my $tempdir=tempdir();
 
17
 
 
18
        foreach my $field (keys %$delta) {
 
19
                if (Pristine::Tar::Delta::is_filename($field)) {
 
20
                        link($delta->{$field}, "$tempdir/$field") || die "link $tempdir/$field: $!";
 
21
                }
 
22
                else {
 
23
                        open (my $out, ">", "$tempdir/$field") || die "$tempdir/$field: $!";
 
24
                        print $out $delta->{$field}."\n";
 
25
                        close $out;
 
26
                }
 
27
        }
 
28
 
 
29
        doit("tar", "czf", $deltafile, "-C", $tempdir, keys %$delta);
 
30
 
 
31
        return $delta;
 
32
}
 
33
 
 
34
sub read {
 
35
        my $class=shift;
 
36
        my $deltafile=shift;
 
37
        
 
38
        my $tempdir=tempdir();
 
39
        doit("tar", "xf", File::Spec->rel2abs($deltafile), "-C", $tempdir);
 
40
 
 
41
        my %delta;
 
42
        foreach my $file (glob("$tempdir/*")) {
 
43
                if (-f $file) {
 
44
                        my $field=basename($file);
 
45
                        if (Pristine::Tar::Delta::is_filename($field)) {
 
46
                                $delta{$field}=$file;
 
47
                        }
 
48
                        else {
 
49
                                open (my $in, "<", $file) || die "$file: $!";
 
50
                                {
 
51
                                        local $/=undef;
 
52
                                        $delta{$field}=<$in>;
 
53
                                }
 
54
                                chomp $delta{$field};
 
55
                                close $in;
 
56
                        }
 
57
                }
 
58
        }
 
59
        
 
60
        return \%delta;
 
61
}
 
62
 
 
63
1