SF.net SVN: ledger-smb:[5742] trunk

[..hidden..]

Revision: 5742
          http://sourceforge.net/p/ledger-smb/code/5742
Author:   einhverfr
Date:     2013-05-03 13:25:15 +0000 (Fri, 03 May 2013)
Log Message:
-----------
Getting rid of extra error messages

Modified Paths:
--------------
    trunk/LedgerSMB/Setting.pm
    trunk/old-handler.pl

Modified: trunk/LedgerSMB/Setting.pm
===================================================================
--- trunk/LedgerSMB/Setting.pm	2013-05-03 06:24:18 UTC (rev 5741)
+++ trunk/LedgerSMB/Setting.pm	2013-05-03 13:25:15 UTC (rev 5742)
@@ -56,7 +56,7 @@
     $key = $self->{key} unless $key;
     my ($hashref) = $self->call_procedure( procname => 'setting_get',
                                                args => [$key]) ;
-    $self->{value} = $hashref->{value} if eval {$self->{key} };
+    $self->{value} = $hashref->{value} if ref $self !~ /hash/i;
     return $hashref->{value};
 }
 

Modified: trunk/old-handler.pl
===================================================================
--- trunk/old-handler.pl	2013-05-03 06:24:18 UTC (rev 5741)
+++ trunk/old-handler.pl	2013-05-03 13:25:15 UTC (rev 5742)
@@ -212,7 +212,7 @@
   # when output terminates.  A mere 'die' will no longer trigger an automatic
   # error, but die 'foo' will map to $form->error('foo')
   # -- CT
-  $form->error($_)  unless $_ eq 'Died'; 
+  $form->error("'$_'")  unless $_ =~ /^Died at/i; 
 } 
 ;
 

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.