about summary refs log tree commit diff
path: root/scripts
diff options
context:
space:
mode:
authorEelco Dolstra <e.dolstra@tudelft.nl>2005-12-13T21·04+0000
committerEelco Dolstra <e.dolstra@tudelft.nl>2005-12-13T21·04+0000
commitab5c6bb3a3deef29c6fe0a86017d35bc4f3de506 (patch)
treeb20966a04ab787ba4787c4f98800fcadbf1b1781 /scripts
parentd87549c1c7bb6f85ff0a019b33b315ace0013e6b (diff)
* Change `referer' to `referrer' throughout. In particular, the
  nix-store query options `--referer' and `--referer-closure' have
  been changed to `--referrer' and `--referrer-closure' (but the old
  ones are still accepted for compatibility).

Diffstat (limited to 'scripts')
-rwxr-xr-xscripts/generate-patches.pl.in14
1 files changed, 7 insertions, 7 deletions
diff --git a/scripts/generate-patches.pl.in b/scripts/generate-patches.pl.in
index 5dfacd896811..bdb6d513c27a 100755
--- a/scripts/generate-patches.pl.in
+++ b/scripts/generate-patches.pl.in
@@ -1,4 +1,4 @@
-#! @perl@ -w -I@libexecdir@/nix
+>#! @perl@ -w -I@libexecdir@/nix
 
 use strict;
 use POSIX qw(tmpnam);
@@ -140,19 +140,19 @@ sub computeUses {
 
 #    print "  DERIVER $deriver\n";
 
-    # Optimisation: build the referers graph from the references
+    # Optimisation: build the referrers graph from the references
     # graph.
-    my %referers;
+    my %referrers;
     foreach my $q (keys %{$narFiles}) {
         my @refs = split " ", @{$$narFiles{$q}}[0]->{references};
         foreach my $r (@refs) {
-            $referers{$r} = [] unless defined $referers{$r};
-            push @{$referers{$r}}, $q;
+            $referrers{$r} = [] unless defined $referrers{$r};
+            push @{$referrers{$r}}, $q;
         }
     }
 
     # Determine the shortest path from $deriver to all other reachable
-    # paths in the `referers' graph.
+    # paths in the `referrers' graph.
 
     my %dist;
     $dist{$deriver} = 0;
@@ -164,7 +164,7 @@ sub computeUses {
         my $p = $queue[$pos];
         $pos++;
 
-        foreach my $q (@{$referers{$p}}) {
+        foreach my $q (@{$referrers{$p}}) {
             if (!defined $dist{$q}) {
                 $dist{$q} = $dist{$p} + 1;
 #                print "    $q $dist{$q}\n";