gump-general mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ru...@apache.org
Subject cvs commit: jakarta-gump nag.pl
Date Mon, 14 Apr 2003 05:11:19 GMT
rubys       2003/04/13 22:11:18

  Modified:    .        nag.pl
  Log:
  Variables are case sensitive in Perl
  
  Revision  Changes    Path
  1.15      +4 -4      jakarta-gump/nag.pl
  
  Index: nag.pl
  ===================================================================
  RCS file: /home/cvs/jakarta-gump/nag.pl,v
  retrieving revision 1.14
  retrieving revision 1.15
  diff -u -r1.14 -r1.15
  --- nag.pl	11 Apr 2003 10:54:08 -0000	1.14
  +++ nag.pl	14 Apr 2003 05:11:18 -0000	1.15
  @@ -40,11 +40,11 @@
       close (FILE);
   
       # extract just the stuff from inside the XMP tag
  -    ($pagedata)=m! .* <XMP> \s* (.*) \s* </XMP> !xs;
  -    if (not $pagedata) {
  +    ($pageData)=m! .* <XMP> \s* (.*) \s* </XMP> !xs;
  +    if (not $pageData) {
         # if none found, go for the html, and remove the tags
  -      ($pagedata)=m! .* <p> \s* (.*) \s* </p> !xs;
  -      $pagedata =~ s/<.*?>//g;
  +      ($pageData)=m! .* <p> \s* (.*) \s* </p> !xs;
  +      $pageData =~ s/<.*?>//g;
       }
     }
   
  
  
  

Mime
View raw message