--- nfo/perl/libs/XML/XUpdate/XSLT.pm	2003/05/13 09:32:22	1.7
+++ nfo/perl/libs/XML/XUpdate/XSLT.pm	2003/06/06 04:01:52	1.8
@@ -4,9 +4,12 @@
 #
 # By Andreas Motl, andreas.motl@ilo.de
 #
-#    $Id: XSLT.pm,v 1.7 2003/05/13 09:32:22 joko Exp $
+#    $Id: XSLT.pm,v 1.8 2003/06/06 04:01:52 joko Exp $
 #
 #    $Log: XSLT.pm,v $
+#    Revision 1.8  2003/06/06 04:01:52  joko
+#    just write to STDERR in debug mode
+#
 #    Revision 1.7  2003/05/13 09:32:22  joko
 #    minor update to pod
 #
@@ -210,7 +213,7 @@
   my $self = shift;
   
   # debug - print the calculated xsl on STDERR
-  print STDERR $self->get_stylesheet("_worker"), "\n";
+  print STDERR $self->get_stylesheet("_worker"), "\n" if $self->{DEBUG};
   
   #return;
   $self->{XSLT_ENGINE_LIVE} = XML::XSLT->new(