Changeset 9625c55 for perl/lib


Ignore:
Timestamp:
Aug 16, 2017, 12:53:41 PM (7 years ago)
Author:
Jason Gross <jasongross9@gmail.com>
Branches:
master
Children:
3222df2
Parents:
54c5395
git-author:
Jason Gross <jgross@mit.edu> (08/03/17 15:29:32)
git-committer:
Jason Gross <jasongross9@gmail.com> (08/16/17 12:53:41)
Message:
Silence "Use of uninitialized value $realm in uc"
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/lib/BarnOwl/Message/Zephyr.pm

    rd2ba33c r9625c55  
    2828    # characters; this way, we always get at least '@' in $user
    2929    my ($user, $realm) = split(/(?<=@)(?=[^@]+$)/, $principal);
    30     return lc($user) . uc($realm);
     30    $user = '' if !defined $user;
     31    $user = lc($user);
     32    $user = $user . uc($realm) if defined $realm;
     33    return $user;
    3134}
    3235
Note: See TracChangeset for help on using the changeset viewer.