*** /var/www/html/twiki/lib/TWiki/Plugins/XmlQueryPlugin.pm.orig 2007-06-07 15:13:19.000000000 -0700 --- /var/www/html/twiki/lib/TWiki/Plugins/XmlQueryPlugin.pm 2007-06-07 15:45:07.000000000 -0700 *************** *** 118,123 **** --- 118,124 ---- } # Setup cache size limit + if (defined $cl) { my ( $cl_value, $cl_type ) = ( $cl =~ /^\s*([0-9]*)\s*([a-z]*)\s*$/ ); if ( defined $cl_value ) { if ( not defined $cl_type =~ /^m/i ) { *************** *** 132,139 **** --- 133,142 ---- } } } + }; # set cache default timeout + if (defined $ct) { $ct =~ s/^\s*//; $ct =~ s/\s*$//; # strip leading and trailing spaces if ( $ct =~ /^(now|never)$/ *************** *** 147,152 **** --- 150,156 ---- TWiki::Func::writeWarning( "Error CACHEEXPIRES incorrect for $web, $topic Value=\"$ct\""); } + } # ensure that the XMLDIR is correctly defined if (not defined $xmldir) {