Bug 12288: (follow-up) test for defined values

This patch adjusts the test so that if an "ISBN" is not
defined (because the source string did not specify a valid
ISBN), it doesn't result in a warning once the warnings
stricture is enabled in C4::Koha.

Signed-off-by: Galen Charlton <gmc@esilibrary.com>

diff --git a/C4/Koha.pm b/C4/Koha.pm
index 8dd513d..6f98ac6 100644 (file)
--- a/C4/Koha.pm
+++ b/C4/Koha.pm
@@ -1641,7 +1641,7 @@ sub GetVariationsOfISBN {
     push( @isbns, NormalizeISBN({ isbn => $isbn, format => 'ISBN-13', strip_hyphens => 1 }) );
 
     # Strip out any "empty" strings from the array
-    @isbns = grep { /\S/ } @isbns;
+    @isbns = grep { defined($_) && $_ =~ /\S/ } @isbns;
 
     return wantarray ? @isbns : join( " | ", @isbns );
 }