Changeset 0b0e460 for perl


Ignore:
Timestamp:
Apr 3, 2011, 3:06:02 PM (13 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, release-1.10, release-1.8, release-1.9
Children:
41ade7f
Parents:
0ccf5ab
git-author:
Nelson Elhage <nelhage@mit.edu> (03/04/11 09:02:23)
git-committer:
Nelson Elhage <nelhage@mit.edu> (04/03/11 15:06:02)
Message:
Squelch an "uninitialized" warning.

I have no idea why ->{command} should be undef, but empirically it sometimes is.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm

    r0ccf5ab r0b0e460  
    161161        recipient   => $recipient,
    162162        body        => $body,
    163         $evt->{command} eq 'notice' ?
     163        ($evt->{command}||'') eq 'notice' ?
    164164          (notice     => 'true') : (),
    165165        is_private($recipient) ?
Note: See TracChangeset for help on using the changeset viewer.