home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / c.diff < prev    next >
Encoding:
Text File  |  2003-04-28  |  321 b   |  16 lines
  1. --- CGI.pm~    Sun Apr 27 19:39:10 2003
  2. +++ CGI.pm    Mon Apr 28 01:02:30 2003
  3. @@ -329,9 +329,9 @@
  4.  
  5.  sub r {
  6.    my $self = shift;
  7. -  my $r = $self->{'.r'};
  8. -  $self->{'.r'} = shift if @ARGV;
  9. -  $r;
  10. +  $self->{'.r'} = shift if @_;
  11. +  $self->{'.r'} ||= Apache->request;
  12. +  $self->{'.r'};
  13.  }
  14.  
  15.  #### Method: param
  16.