Date: Monday June 10, 2002 @ 13:08
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:
More fixes for detached parent node thingy
Log:
PR:
Index: Exception.pm
===================================================================
RCS file: /home/cvs/AxKit-XSP-Exception/Exception.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -b -u -r1.7 -r1.8
--- Exception.pm 2002/06/10 10:16:14 1.7
+++ Exception.pm 2002/06/10 12:08:55 1.8
@@ -1,4 +1,4 @@
-# $Id: Exception.pm,v 1.7 2002/06/10 10:16:14 matt Exp $
+# $Id: Exception.pm,v 1.8 2002/06/10 12:08:55 matt Exp $
package AxKit::XSP::Exception;
@@ -84,7 +84,7 @@
return '} else { die($@) } }; undef($@); '; # if($@) { block
--propogate die
}
elsif($state eq 'catchall') {
- return $sort_nodes.'}; undef($@); '; # if($@) { block --
don't propogate die
+ return '} undef($@); '; # if($@) { block -- don't propogate
+die
}
elsif($state eq 'catchelse') {
return '}} undef($@); '; #if($@) {} else { block
-- don't propogate die
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
