TakeV
/
guix
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* Cleanup.

This commit is contained in:
Eelco Dolstra 2009-04-16 09:27:33 +00:00
parent dfb863f333
commit 0460ea4c39
1 changed files with 6 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
scripts/readmanifest.pm.in
View File

@ -2,9 +2,7 @@ use strict;
sub addPatch { sub addPatch {
my $patches = shift; my ($patches, $storePath, $patch) = @_;
my $storePath = shift;
my $patch = shift;
$$patches{$storePath} = [] $$patches{$storePath} = []
unless defined $$patches{$storePath}; unless defined $$patches{$storePath};
@ -25,10 +23,7 @@ sub addPatch {
sub readManifest { sub readManifest {
my $manifest = shift; my ($manifest, $narFiles, $localPaths, $patches) = @_;
my $narFiles = shift;
my $localPaths = shift;
my $patches = shift;
open MANIFEST, "<$manifest" open MANIFEST, "<$manifest"
or die "cannot open `$manifest': $!"; or die "cannot open `$manifest': $!";
@ -154,12 +149,8 @@ sub readManifest {
} }
sub writeManifest sub writeManifest {
{ my ($manifest, $narFiles, $patches) = @_;
my $manifest = shift;
my $narFiles = shift;
my $patches = shift;
my $copySources = shift;
open MANIFEST, ">$manifest.tmp"; # !!! check exclusive open MANIFEST, ">$manifest.tmp"; # !!! check exclusive
@ -173,9 +164,9 @@ sub writeManifest
print MANIFEST "{\n"; print MANIFEST "{\n";
print MANIFEST " StorePath: $storePath\n"; print MANIFEST " StorePath: $storePath\n";
print MANIFEST " NarURL: $narFile->{url}\n"; print MANIFEST " NarURL: $narFile->{url}\n";
print MANIFEST " Hash: $narFile->{hash}\n"; print MANIFEST " Hash: $narFile->{hash}\n" if defined $narFile->{hash};
print MANIFEST " NarHash: $narFile->{narHash}\n"; print MANIFEST " NarHash: $narFile->{narHash}\n";
print MANIFEST " Size: $narFile->{size}\n"; print MANIFEST " Size: $narFile->{size}\n" if defined $narFile->{size};
print MANIFEST " References: $narFile->{references}\n" print MANIFEST " References: $narFile->{references}\n"
if defined $narFile->{references} && $narFile->{references} ne ""; if defined $narFile->{references} && $narFile->{references} ne "";
print MANIFEST " Deriver: $narFile->{deriver}\n" print MANIFEST " Deriver: $narFile->{deriver}\n"