Date: Tuesday June 11, 2002 @ 8:44
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:
Slightly cleaner node re-attaching
Log:
PR:
Index: Exception.pm
===================================================================
RCS file: /home/cvs/AxKit-XSP-Exception/Exception.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -b -u -r1.8 -r1.9
--- Exception.pm 2002/06/10 12:08:55 1.8
+++ Exception.pm 2002/06/11 07:44:30 1.9
@@ -1,4 +1,4 @@
-# $Id: Exception.pm,v 1.8 2002/06/10 12:08:55 matt Exp $
+# $Id: Exception.pm,v 1.9 2002/06/11 07:44:30 matt Exp $
package AxKit::XSP::Exception;
@@ -23,7 +23,7 @@
return '';
}
-my $sort_nodes = ' $real_parent->appendChild($parent->removeChild($_)) for
$parent->childNodes(); ';
+my $sort_nodes = ' for ($parent->childNodes()) { $_->unbindNode;
+$real_parent->appendChild($_); } ';
sub parse_start {
my ($e, $tag, %attribs) = @_;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
