diff options
author | Eelco Dolstra <e.dolstra@tudelft.nl> | 2003-07-29 17:56:39 +0000 |
---|---|---|
committer | Eelco Dolstra <e.dolstra@tudelft.nl> | 2003-07-29 17:56:39 +0000 |
commit | 1cb030736ec1e844b3bfce32def3725c8a422a1c (patch) | |
tree | 3e1d288b50ada0913ae8b62e2e0dd86e56da3b3a | |
parent | a01629894db0d961622b06c9c691c7cc0fbedff0 (diff) | |
download | guix-1cb030736ec1e844b3bfce32def3725c8a422a1c.tar.gz |
* Bug: Fix does not allow empty names, so don't generate them.
-rw-r--r-- | scripts/nix-pull.in | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/scripts/nix-pull.in b/scripts/nix-pull.in index f584b6abd1..ff85ff9a69 100644 --- a/scripts/nix-pull.in +++ b/scripts/nix-pull.in @@ -30,16 +30,16 @@ while (<CONFFILE>) { next if $fn =~ /\//; next unless $fn =~ /^([0-9a-z]{32})-([0-9a-z]{32})(.*)\.nar\.bz2$/; my $hash = $1; - my $id = $2; - my $outname = $3; - my $fsid; - if ($outname =~ /^-/) { - next unless $outname =~ /^-((s-([0-9a-z]{32}))?.*)$/; - $outname = $1; - $fsid = $3; - } else { - $outname = ""; - } + my $id = $2; + my $outname = $3; + my $fsid; + if ($outname =~ /^-/) { + next unless $outname =~ /^-((s-([0-9a-z]{32}))?.*)$/; + $outname = $1; + $fsid = $3; + } else { + $outname = "unnamed"; + } print "registering $id -> $url/$fn\n"; |