visible-undef: new internal function

diff --git a/Osstest.pm b/Osstest.pm
index 5d2bb2a1e2bf0d5ab0c17c25d5134814b2cc98a7..b1c02ee07daec87705e5d65ba82cd975731186f3 100644 (file)
--- a/Osstest.pm
+++ b/Osstest.pm
@@ -35,7 +35,7 @@ BEGIN {
                       $dbh_tests db_retry db_retry_retry db_retry_abort
                       db_begin_work
                       ensuredir get_filecontents_core_quiet system_checked
-                      nonempty
+                      nonempty visible_undef
                       );
     %EXPORT_TAGS = ( );
 
@@ -278,4 +278,9 @@ sub nonempty ($) {
     return defined($v) && length($v);
 }
 
+sub visible_undef ($) {
+    my ($v) = @_;
+    return defined $v ? $v : '<undef>';
+}
+
 1;

diff --git a/ts-hosts-allocate-Executive b/ts-hosts-allocate-Executive
index 91be57b6f270f8aff421ae044f689acaa3b8f423..75834eb00efbeae9010e6d8bc8e12821cc0283ac 100755 (executable)
--- a/ts-hosts-allocate-Executive
+++ b/ts-hosts-allocate-Executive
@@ -338,7 +338,7 @@ END
             } else {
                 $val= $hid->{"Default$khash"};
                 print DEBUG "$dbg $khash ($kdb) FROM-DEFAULT ".
-                   (defined $val ? $val : '<undef>')."\n";
+                   visible_undef($val)."\n";
             }
             $candrow->{$khash}= $val;
         }