diff options
| author | link <link@localhost> | 2001-03-08 01:21:09 +0000 |
|---|---|---|
| committer | link <link@localhost> | 2001-03-08 01:21:09 +0000 |
| commit | f7a9ce5458c6dff8b32e66e2896212f947e08566 (patch) | |
| tree | 10e73c4de714734544bf00cca30f8283c4e825ed | |
| parent | 7056ab91b14f1dd1a6186270a7ea36f304af7975 (diff) | |
| download | markup-validator-f7a9ce5458c6dff8b32e66e2896212f947e08566.zip markup-validator-f7a9ce5458c6dff8b32e66e2896212f947e08566.tar.gz markup-validator-f7a9ce5458c6dff8b32e66e2896212f947e08566.tar.bz2 | |
Somewhat overzealous stripping of globals fixed.
| -rwxr-xr-x | httpd/cgi-bin/check | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/httpd/cgi-bin/check b/httpd/cgi-bin/check index a19bb94..b9d0836 100755 --- a/httpd/cgi-bin/check +++ b/httpd/cgi-bin/check @@ -8,7 +8,7 @@ # This source code is available under the license at: # http://www.w3.org/Consortium/Legal/copyright-software # -# $Id: check,v 1.89 2001-03-08 00:49:44 link Exp $ +# $Id: check,v 1.90 2001-03-08 01:21:09 link Exp $ # # We need Perl 5.004. @@ -73,9 +73,9 @@ my $element_ref = 'http://www.htmlhelp.com/reference/html40/'; # # Strings -$VERSION = q$Revision: 1.89 $; +$VERSION = q$Revision: 1.90 $; $VERSION =~ s/Revision: ([\d\.]+) /$1/; -$DATE = q$Date: 2001-03-08 00:49:44 $; +$DATE = q$Date: 2001-03-08 01:21:09 $; $MAINTAINER = 'gerald@w3.org'; $NOTICE = ''; # "<p><strong>Note: This service will be ...</strong>"; @@ -586,7 +586,9 @@ if ( $? || ($guessed_doctype == 1) ) { # make sure there are no ^P's or ^Q's in the file, since we need to use # them to represent '<' and '>' temporarily. We'll just change them to # literal P's and Q's for a lack of anything better to do with them. - $newline =~ s/${lt}/P/go; $newline =~ s/${gt}/Q/g; + my $lt = "\020"; + my $gt = "\021"; + $newline =~ s/\020/P/go; $newline =~ s/\021/Q/g; my $orig_col = $col; ($newline, $col) = &truncate_line($newline, $col); |