Changeset 5008e51

Timestamp:

Feb 16, 2009, 1:30:28 PM (16 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

52a0f14

Parents:

6e400cc

Message:

Squash an 'undefined' warning in one-line mode.

File:

• perlwrap.pm (modified) (2 diffs)

perlwrap.pm

@@ -1087 +1087 @@
 ################################################################################
 
+sub maybe {
+    my $thing = shift;
+    return defined($thing) ? $thing : "";
+}
+
 sub format_login {
   my $self = shift;
@@ -1136 +1141 @@
     $line = sprintf(BASE_FORMAT,
                     $dirsym,
-                    $m->context,
-                    $m->subcontext,
+                    maybe($m->context),
+                    maybe($m->subcontext),
                     ($dir eq 'out'
                      ? $m->pretty_recipient