cvs commit: modperl-2.0/lib/Apache Status.pm

[gozer]

gozer       2004/11/10 23:53:06

  Modified:    lib/Apache Status.pm
  Log:
  Fix tyop
  
  Revision  Changes    Path
  1.31      +1 -1      modperl-2.0/lib/Apache/Status.pm
  
  Index: Status.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/Apache/Status.pm,v
  retrieving revision 1.30
  retrieving revision 1.31
  diff -u -r1.30 -r1.31
  --- Status.pm 5 Oct 2004 22:30:26 -0000       1.30
  +++ Status.pm 11 Nov 2004 07:53:06 -0000      1.31
  @@ -466,7 +466,7 @@
   
       return unless has($r, "lexinfo");
   
  -    my $script = $q->location;
  +    my $script = $r->location;
       return qq(\n<a href="$script/$name?noh_b_lexinfo">Lexical Info</a>\n);
   }