Date: Monday June 10, 2002 @ 11:16
Author: matt
Update of /home/cvs/AxKit-XSP-Exception
In directory ted.sergeant.org:/home/matt/Perl/AxKit-XSP-Exception
Modified Files:
Exception.pm
Log Message:
Fixed bug where $parent would disappear
Log:
PR:
Index: Exception.pm
===================================================================
RCS file: /home/cvs/AxKit-XSP-Exception/Exception.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -b -u -r1.6 -r1.7
--- Exception.pm 2002/06/09 22:21:40 1.6
+++ Exception.pm 2002/06/10 10:16:14 1.7
@@ -1,4 +1,4 @@
-# $Id: Exception.pm,v 1.6 2002/06/09 22:21:40 matt Exp $
+# $Id: Exception.pm,v 1.7 2002/06/10 10:16:14 matt Exp $
package AxKit::XSP::Exception;
@@ -31,7 +31,7 @@
if ($tag eq 'try') {
$e->manage_text(0);
push(@E_state, "try");
- return 'eval { my $real_parent = $parent; $parent =
$document->createElement("psuedo-parent"); '. "\n";
+ return 'eval { my $real_parent = $parent; my $parent =
+$document->createElement("psuedo-parent"); '. "\n";
}
elsif ($tag eq 'catch') {
@@ -75,6 +75,9 @@
if ($tag eq 'try') {
my $state = pop(@E_state);
if($state eq 'try') {
+ # Not sure this is right - surely if you wrap the whole thing
+ # in a try block, with no catch, you just want to ignore the
+ # exceptions?
return $sort_nodes.'}; if($@) { die($@) }; '; # No if($@) block
}
elsif($state eq 'catch') {
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
