Mercurial > pub > Impl

diff Lib/IMPL/Exception.pm @ 63:76b878ad6596

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added serialization support for the IMPL::Object::List More intelligent Exception message Fixed encoding support in the actions Improoved tests Minor fixes
author wizard
date Mon, 15 Mar 2010 02:38:09 +0300
parents 16ada169ca75
children 79bf75223afe
line wrap: on
line diff
--- a/Lib/IMPL/Exception.pm	Fri Mar 12 16:23:46 2010 +0300
+++ b/Lib/IMPL/Exception.pm	Mon Mar 15 02:38:09 2010 +0300
@@ -81,7 +81,7 @@
 
 sub toString {
     my ($this,$notrace) = @_;
-    $this->Message . join("\n",'',map { my $s = $_; local $_; indent("$s",1) } @{$this->Args} ) . ( $notrace ? '' : "\n" . $this->CallStack);
+    ($this->Message || ref $this) . join("\n",'',map { my $s = $_; local $_; indent("$s",1) } @{$this->Args} ) . ( $notrace ? '' : "\n" . $this->CallStack);
 }
 
 package IMPL::InvalidOperationException;