Date: Sunday June 16, 2002 @ 14:26
Author: matt
Update of /home/cvs/AxKit-XSP-Wiki/lib/AxKit/XSP
In directory ted.sergeant.org:/home/matt/Perl/AxKit-XSP-Wiki/lib/AxKit/XSP
Modified Files:
Wiki.pm
Log Message:
Make sure we allow the doc to be edited on error parsing it
Log:
PR:
Index: Wiki.pm
===================================================================
RCS file: /home/cvs/AxKit-XSP-Wiki/lib/AxKit/XSP/Wiki.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -b -u -r1.2 -r1.3
--- Wiki.pm 2002/06/14 08:12:59 1.2
+++ Wiki.pm 2002/06/16 13:26:26 1.3
@@ -2,10 +2,10 @@
use strict;
-
use Apache::AxKit::Language::XSP::TaglibHelper;
use vars qw($VERSION $NS @ISA @EXPORT_TAGLIB);
-$VERSION = 0.01;
+
+$VERSION = '0.02';
# The namespace associated with this taglib.
$NS = 'http://axkit.org/NS/xsp/wiki/1';
@@ -61,7 +61,18 @@
while ( my $row = $sth->fetch ) {
# create the parser
my $parser = $row->[1]->new(Handler => $handler);
+ eval {
$parser->parse_string($row->[0]);
+ };
+ if ($@) {
+ $output = <<EOT;
+<pod>
+ <para>
+ Error parsing the pod: $@
+ </para>
+</pod>
+EOT
+ }
last;
}
if (!$output) {
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
