[lucy-commits] svn commit: r1056175 - in /incubator/lucy/trunk: core/Lucy/Object/Err.c perl/lib/Lucy.pm

[ma...@apache.org]

Author: marvin
Date: Fri Jan  7 02:53:56 2011
New Revision: 1056175

URL: http://svn.apache.org/viewvc?rev=1056175&view=rev
Log:
Make indentation in stack traces more uniform.

Modified:
    incubator/lucy/trunk/core/Lucy/Object/Err.c
    incubator/lucy/trunk/perl/lib/Lucy.pm

Modified: incubator/lucy/trunk/core/Lucy/Object/Err.c
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/core/Lucy/Object/Err.c?rev=1056175&r1=1056174&r2=1056175&view=diff
==============================================================================
--- incubator/lucy/trunk/core/Lucy/Object/Err.c (original)
+++ incubator/lucy/trunk/core/Lucy/Object/Err.c Fri Jan  7 02:53:56 2011
@@ -163,7 +163,7 @@ Err_add_frame(Err *self, const char *fil
     if (CB_Ends_With_Str(self->mess, "\n", 1)) { CB_Chop(self->mess, 1); }
 
     if (func != NULL) {
-        CB_catf(self->mess, ",\n\t %s at %s line %i32\n", func, file, 
+        CB_catf(self->mess, ",\n\t%s at %s line %i32\n", func, file, 
             (int32_t)line);
     }
     else {

Modified: incubator/lucy/trunk/perl/lib/Lucy.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy.pm?rev=1056175&r1=1056174&r2=1056175&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy.pm Fri Jan  7 02:53:56 2011
@@ -407,7 +407,9 @@ sub error {$Lucy::Object::Err::error}
 
     sub do_throw {
         my $err = shift;
-        $err->cat_mess( longmess() );
+        my $longmess = longmess();
+        $longmess =~ s/^\s*/\t/;
+        $err->cat_mess($longmess);
         die $err;
     }