- From: Olivier Thereaux <ot@dev.w3.org>
- Date: Mon, 16 Aug 2004 02:12:12 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator
In directory hutz:/tmp/cvs-serv30158
Modified Files:
Basic.pm CSSValidator.pm HTMLValidator.pm SurveyEngine.pm
Log Message:
untie only if tied. Otherwise, feel stupid.
Index: SurveyEngine.pm
===================================================================
RCS file: /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator/SurveyEngine.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- SurveyEngine.pm 13 Aug 2004 06:01:12 -0000 1.7
+++ SurveyEngine.pm 16 Aug 2004 02:12:09 -0000 1.8
@@ -266,8 +266,10 @@
my $intro_str = "Here are the $census most popular documents surveyed for $name on .";
print "Done!\n" if $verbose;
#print "Result: @result \n" if $verbose;
- untie %hits;
-
+ if (defined ($config{tmpfile}))
+ {
+ untie %hits;
+ }
# Here is what the module will return. The hash will be sent to
# the output module
Index: HTMLValidator.pm
===================================================================
RCS file: /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator/HTMLValidator.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- HTMLValidator.pm 13 Aug 2004 06:01:12 -0000 1.15
+++ HTMLValidator.pm 16 Aug 2004 02:12:09 -0000 1.16
@@ -329,7 +329,10 @@
{
$outro=$outro."\nNOTE: I stopped after processing $max_documents documents:\n Maybe you could set MaxDocuments to a higher value?";
}
- untie %hits;
+ if (defined ($config{tmpfile}))
+ {
+ untie %hits;
+ }
my %returnhash;
$returnhash{"name"}="HTMLValidator";
$returnhash{"intro"}=$intro;
Index: Basic.pm
===================================================================
RCS file: /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator/Basic.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- Basic.pm 13 Aug 2004 06:01:12 -0000 1.8
+++ Basic.pm 16 Aug 2004 02:12:09 -0000 1.9
@@ -147,7 +147,9 @@
{
$intro=~ s/<census>/$census/;
}
- untie %hits;
+ if (defined ($config{tmpfile})) {
+ untie %hits;
+ }
my $outro="";
my %returnhash;
$returnhash{"name"}="basic";
Index: CSSValidator.pm
===================================================================
RCS file: /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator/CSSValidator.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- CSSValidator.pm 13 Aug 2004 06:01:12 -0000 1.9
+++ CSSValidator.pm 16 Aug 2004 02:12:09 -0000 1.10
@@ -308,8 +308,11 @@
{
$outro=$outro."\nNOTE: I stopped after processing $max_documents documents:\n Maybe you could set MaxDocuments to a higher value?";
}
- untie %hits;
+ if (defined ($config{tmpfile}))
+ {
+ untie %hits;
+ }
# Here is what the module will return. The hash will be sent to
# the output module
Received on Monday, 16 August 2004 02:12:12 UTC