diff options
author | Eelco Dolstra <e.dolstra@tudelft.nl> | 2004-06-21T09·51+0000 |
---|---|---|
committer | Eelco Dolstra <e.dolstra@tudelft.nl> | 2004-06-21T09·51+0000 |
commit | 37ee6cef992c1a80e790a294b75db8c116be8bbb (patch) | |
tree | c9296a3d00ce0768e6200d29b39d11beab48c406 /scripts/readmanifest.pm.in | |
parent | 3f3a3ae87b3d72d52842d9a2ffe7010f5b0066b9 (diff) |
* Adapted nix-pull to use the new substitute mechanism.
Diffstat (limited to 'scripts/readmanifest.pm.in')
-rw-r--r-- | scripts/readmanifest.pm.in | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/scripts/readmanifest.pm.in b/scripts/readmanifest.pm.in index bca6c4c8acc5..3bda0f067b2f 100644 --- a/scripts/readmanifest.pm.in +++ b/scripts/readmanifest.pm.in @@ -3,7 +3,7 @@ use strict; sub processURL { my $manifest = shift; my $url = shift; - my $storepaths2urls = shift; + my $storePaths2urls = shift; my $urls2hashes = shift; my $successors = shift; @@ -18,7 +18,7 @@ sub processURL { my $inside = 0; - my $storepath; + my $storePath; my $narurl; my $hash; my @preds; @@ -31,7 +31,7 @@ sub processURL { if (!$inside) { if (/^\{$/) { $inside = 1; - undef $storepath; + undef $storePath; undef $narurl; undef $hash; @preds = (); @@ -41,16 +41,16 @@ sub processURL { if (/^\}$/) { $inside = 0; - $$storepaths2urls{$storepath} = $narurl; + $$storePaths2urls{$storePath} = $narurl; $$urls2hashes{$narurl} = $hash; foreach my $p (@preds) { - $$successors{$p} = $storepath; + $$successors{$p} = $storePath; } } elsif (/^\s*StorePath:\s*(\/\S+)\s*$/) { - $storepath = $1; + $storePath = $1; } elsif (/^\s*NarURL:\s*(\S+)\s*$/) { $narurl = $1; |