Using warn instead of die

[koha.git] / C4 / Boolean.pm

diff --git a/C4/Boolean.pm b/C4/Boolean.pm
index c9259df..8d40312 100644 (file)
--- a/C4/Boolean.pm
+++ b/C4/Boolean.pm
@@ -22,6 +22,8 @@ package C4::Boolean;
 # Suite 330, Boston, MA  02111-1307 USA
 
 use strict;
+use warnings;
+
 use POSIX;
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
@@ -92,14 +94,14 @@ sub true_p ($) {
     my($x) = @_;
     my $it;
     if (!defined $x || ref($x) ne '') {
-       die INVALID_BOOLEAN_STRING_EXCEPTION;
+       warn INVALID_BOOLEAN_STRING_EXCEPTION;
     }
     $x = lc($x);
     $x =~ s/\s//g;
     if (defined $strings{$x}) {
        $it = $strings{$x};
     } else {
-       die INVALID_BOOLEAN_STRING_EXCEPTION;
+       warn INVALID_BOOLEAN_STRING_EXCEPTION;
     }
     return $it;
 }