[Rt-commit] r2984 - in Class-ReturnValue: . trunk trunk/lib/Class

[jesse at bestpractical.com]

Author: jesse
Date: Mon May 30 17:01:22 2005
New Revision: 2984

Modified:
   Class-ReturnValue/   (props changed)
   Class-ReturnValue/trunk/Changes
   Class-ReturnValue/trunk/lib/Class/ReturnValue.pm
Log:
 r18004 at hualien:  jesse | 2005-05-30 16:53:35 -0400
 * error_condition should be returning undef


Modified: Class-ReturnValue/trunk/Changes
==============================================================================
--- Class-ReturnValue/trunk/Changes	(original)
+++ Class-ReturnValue/trunk/Changes	Mon May 30 17:01:22 2005
@@ -1,5 +1,7 @@
 Revision history for Perl extension Return::Value.
 
+ 0.53  Mon May 30 16:52:44 EDT 2005
+        - sub error_condition returns undef, not 0 -- Thanks to Dave Glasser
 
  0.52  Oct 08, 2003
 	- Ported to Module::Install

Modified: Class-ReturnValue/trunk/lib/Class/ReturnValue.pm
==============================================================================
--- Class-ReturnValue/trunk/lib/Class/ReturnValue.pm	(original)
+++ Class-ReturnValue/trunk/lib/Class/ReturnValue.pm	Mon May 30 17:01:22 2005
@@ -370,7 +370,7 @@
 sub error_condition { 
     my $self = shift;
     if ($self->{'errno'}) {
-            return (0);
+            return (undef);
         }
         elsif (wantarray()) {
             return(@{$self->{'as_array'}});