diff options
author | Eelco Dolstra <e.dolstra@tudelft.nl> | 2005-02-17T10·06+0000 |
---|---|---|
committer | Eelco Dolstra <e.dolstra@tudelft.nl> | 2005-02-17T10·06+0000 |
commit | fb5dae8694acbabab68aaccbc64796719fcb7b02 (patch) | |
tree | 59c89e8ff9f8b7c962954e7d67d04618a8c7e3e7 /scripts/nix-push.in | |
parent | 202d5bbda578fcc8ff564c107f5f9dcfd5b1bc2b (diff) |
* Fix nix-channel.
* Add `--help' flag; fixes NIX-5. * Add `--remove' flag; fixes NIX-6. * Add `--list' flag.
Diffstat (limited to 'scripts/nix-push.in')
-rw-r--r-- | scripts/nix-push.in | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/scripts/nix-push.in b/scripts/nix-push.in index 52f4a30123d7..dd1fd992282c 100644 --- a/scripts/nix-push.in +++ b/scripts/nix-push.in @@ -154,17 +154,17 @@ for (my $n = 0; $n < scalar @storePaths; $n++) { (-f $narfile) or die "narfile for $storePath not found"; push @nararchives, $narfile; - open MD5, "$nardir/narbz2-hash" or die "cannot open narbz2-hash"; - my $narbz2Hash = <MD5>; + open SHA1, "$nardir/narbz2-hash" or die "cannot open narbz2-hash"; + my $narbz2Hash = <SHA1>; chomp $narbz2Hash; $narbz2Hash =~ /^[0-9a-z]{32}$/ or die "invalid hash"; - close MD5; + close SHA1; - open MD5, "$nardir/nar-hash" or die "cannot open nar-hash"; - my $narHash = <MD5>; + open SHA1, "$nardir/nar-hash" or die "cannot open nar-hash"; + my $narHash = <SHA1>; chomp $narHash; $narHash =~ /^[0-9a-z]{32}$/ or die "invalid hash"; - close MD5; + close SHA1; my $narbz2Size = (stat $narfile)[7]; |