svn commit: r1538529 - /openoffice/trunk/main/solenv/bin/modules/installer/logger.pm

[af]

Author: af
Date: Mon Nov  4 08:46:39 2013
New Revision: 1538529

URL: http://svn.apache.org/r1538529
Log:
123595: Add temporary debug code to find who prints '%{'.

Modified:
    openoffice/trunk/main/solenv/bin/modules/installer/logger.pm

Modified: openoffice/trunk/main/solenv/bin/modules/installer/logger.pm
URL: 
http://svn.apache.org/viewvc/openoffice/trunk/main/solenv/bin/modules/installer/logger.pm?rev=1538529&r1=1538528&r2=1538529&view=diff
==============================================================================
--- openoffice/trunk/main/solenv/bin/modules/installer/logger.pm (original)
+++ openoffice/trunk/main/solenv/bin/modules/installer/logger.pm Mon Nov  4 
08:46:39 2013
@@ -144,11 +144,12 @@ sub printf ($$@)
 {
     my ($self, $format, @arguments) = @_;
 
-    my $message = sprintf($format, @arguments);
-    if ($message =~ /\%/)
+    if ($format =~ /\%\{/)
     {
+        printf(">%s<\n", $format);
         PrintStackTrace();
     }
+    my $message = sprintf($format, @arguments);
     $self->print($message, 0);
 }
 
@@ -659,6 +660,7 @@ sub PrintStackTrace ()
     }
 }
 
+
 sub Die ($)
 {
     my ($message) = @_;