attempt to stop warnings

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/AppUtils.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/AppUtils.pm
index 3c32377..d40ee76 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/AppUtils.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/AppUtils.pm
@@ -2380,7 +2380,7 @@ sub unique_unnested_numbers {
             map { $_ eq 'NULL' ? undef : (split /,/, $_) }
                 map { substr($_, 1, -1) } @_
         )
-    );
+    ) if defined $_;
 }
 
 # Given a list of numbers, turn them into a PG array, skipping undef's