perl-xml-commits

[Edwin P. <edp...@us...>]

Update of /cvsroot/perl-xml/xalan-p
In directory usw-pr-cvs1:/tmp/cvs-serv22647

Modified Files:
	Makefile.PL Xalan.pm Xalan.xs 
Log Message:
debug printing now depends on env DEBUG_XALAN


Index: Makefile.PL
===================================================================
RCS file: /cvsroot/perl-xml/xalan-p/Makefile.PL,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- Makefile.PL	18 Apr 2002 03:37:39 -0000	1.1.1.1
+++ Makefile.PL	20 Apr 2002 06:37:51 -0000	1.2
@@ -111,7 +111,8 @@
 -L/usr/local/lib
 LIBS
     $config{DEFINE}     = '-DLINUX -D_REENTRANT -DNDEBUG -D_EXPERIMENTAL' .
-                          (check_ver() ? ' -D_USE_UTF8' : '');
+                          (check_ver() ? ' -D_USE_UTF8' : '') . 
+                          ($ENV{DEBUG_XALAN} ? ' -DDEBUG_XALAN' : '');
     $config{CC}         = 'c++';
     $config{LD}         = 'g++';
     $config{CCFLAGS}    = '-instances=static';

Index: Xalan.pm
===================================================================
RCS file: /cvsroot/perl-xml/xalan-p/Xalan.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- Xalan.pm	18 Apr 2002 03:37:38 -0000	1.1.1.1
+++ Xalan.pm	20 Apr 2002 06:37:51 -0000	1.2
@@ -44,7 +44,7 @@
     unless ($CHILD_EXIT_HANDLER_INSTALLED) {
         Apache->push_handlers(
             PerlChildExitHandler => sub {
-                print STDERR "Terminating inside exit handler..\n";
+                #print STDERR "Terminating inside exit handler..\n";
                 XML::Xalan::Transformer::terminate();
             });
         ++$CHILD_EXIT_HANDLER_INSTALLED;
@@ -53,7 +53,7 @@
 
 END {
     unless ($ENV{MOD_PERL}) {
-        print STDERR "Terminating..\n";
+        #print STDERR "Terminating..\n";
         XML::Xalan::Transformer::terminate();
     }
 }

Index: Xalan.xs
===================================================================
RCS file: /cvsroot/perl-xml/xalan-p/Xalan.xs,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- Xalan.xs	18 Apr 2002 03:37:41 -0000	1.1.1.1
+++ Xalan.xs	20 Apr 2002 06:37:51 -0000	1.2
@@ -438,12 +438,16 @@
 PROTOTYPES: DISABLE
 
 BOOT:
+#ifdef DEBUG_XALAN
     PerlIO_printf(PerlIO_stderr(), "Bootstrapping Xalan\n");
+#endif
     if (is_initialized == 0) {
         XMLPlatformUtils::Initialize();
         XalanTransformer::initialize();
-    }
-    PerlIO_printf(PerlIO_stderr(), "is_initialized: %d\n", ++is_initialized);
+    } else ++is_initialized;
+#ifdef DEBUG_XALAN
+    PerlIO_printf(PerlIO_stderr(), "is_initialized: %d\n", is_initialized);
+#endif
 
 XalanTransformer*
 XalanTransformer::new()
@@ -458,6 +462,9 @@
 void
 terminate()
     CODE:
+#ifdef DEBUG_XALAN
+	PerlIO_printf(PerlIO_stderr(), "Inside terminate()..\n");
+#endif DEBUG_XALAN
     /* I don't know why this doesn't work with perl 5.005_03 */
     /* Commented out at this moment seems to cause no harm */
     //XalanTransformer::terminate();