subversion-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From pet...@apache.org
Subject svn commit: r1146834 - /subversion/trunk/subversion/bindings/swig/perl/native/Core.pm
Date Thu, 14 Jul 2011 18:15:48 GMT
Author: peters
Date: Thu Jul 14 18:15:47 2011
New Revision: 1146834

URL: http://svn.apache.org/viewvc?rev=1146834&view=rev
Log:
* subversion/bindings/swig/perl/native/Core.pm
   (expanded_message): Avoid an undef warning.

Patch by: Ivan Krasilnikov <infnty{_AT_}gmail.com>
          me

Modified:
    subversion/trunk/subversion/bindings/swig/perl/native/Core.pm

Modified: subversion/trunk/subversion/bindings/swig/perl/native/Core.pm
URL: http://svn.apache.org/viewvc/subversion/trunk/subversion/bindings/swig/perl/native/Core.pm?rev=1146834&r1=1146833&r2=1146834&view=diff
==============================================================================
--- subversion/trunk/subversion/bindings/swig/perl/native/Core.pm (original)
+++ subversion/trunk/subversion/bindings/swig/perl/native/Core.pm Thu Jul 14 18:15:47 2011
@@ -581,7 +581,8 @@ sub expanded_message {
 
     my $error_message = $svn_error->strerror();
     while ($svn_error) {
-        $error_message .= ': ' . $svn_error->message();
+        my $msg = $svn_error->message();
+        $error_message .= ": $msg" if $msg;
         $svn_error = $svn_error->child();
     }
     return $error_message;



Mime
View raw message