Fix some cleaning bugs.

[xml-template] / perl / XML / Template.pm

diff --git a/perl/XML/Template.pm b/perl/XML/Template.pm
index 80115fcdbb55cbc9fc6f215f46284b3196f0fb03..19fa47082f7e7cb64021ae9be39a0e93c45eae52 100644 (file)
--- a/perl/XML/Template.pm
+++ b/perl/XML/Template.pm
@@ -121,7 +121,6 @@ sub process {
                }
 
                $frag->dispose;
-               return;
        }
 
        clean($node, $nsup) if $clean;