Model::Base: 'set_error' can recieve errorno argument

diff --git a/src/newslash_web/lib/Newslash/Model/Base.pm b/src/newslash_web/lib/Newslash/Model/Base.pm
index 6f8bf42..92ab222 100644 (file)
--- a/src/newslash_web/lib/Newslash/Model/Base.pm
+++ b/src/newslash_web/lib/Newslash/Model/Base.pm
@@ -33,8 +33,9 @@ sub new {
 }
 
 sub set_error {
-    my ($self, $error) =@_;
+    my ($self, $error, $errorno) =@_;
     $self->{_error} = $error;
+    $self->{_errorno} = $errorno if $errorno;
 }
 sub set_errorno {
     my ($self, $errorno) =@_;