Changeset 5008e51 for perlwrap.pm


Ignore:
Timestamp:
Feb 16, 2009, 1:30:28 PM (13 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, debian, 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:
1 edited

Legend:

Unmodified
Added
Removed
  • perlwrap.pm

    re9708d2 r5008e51  
    10871087################################################################################
    10881088
     1089sub maybe {
     1090    my $thing = shift;
     1091    return defined($thing) ? $thing : "";
     1092}
     1093
    10891094sub format_login {
    10901095  my $self = shift;
     
    11361141    $line = sprintf(BASE_FORMAT,
    11371142                    $dirsym,
    1138                     $m->context,
    1139                     $m->subcontext,
     1143                    maybe($m->context),
     1144                    maybe($m->subcontext),
    11401145                    ($dir eq 'out'
    11411146                     ? $m->pretty_recipient
Note: See TracChangeset for help on using the changeset viewer.