diff options
| author |   William Heimbigner <william.heimbigner@gmail.com> | 2016-01-12 15:05:56 -0700 |
|---|---|---|
| committer | William Heimbigner <william.heimbigner@gmail.com> | 2016-01-12 15:05:56 -0700 |
| commit | 3f75fd1d9273dd744e3d0ec98968401db7e3ae1a (patch) | |
| tree | acd48cc64ab5a726b818160878e098ae2ae1a017 /lib/ASM/Util.pm | |
| parent | b89a5058c2e3737e1e51f77062333eb5cbbb9953 (diff) | |
Disable Autovivification in all the things, enable autoflush on STDOUT, fix some things in accountsToNicks
Diffstat (limited to 'lib/ASM/Util.pm')
| -rw-r--r-- | lib/ASM/Util.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/ASM/Util.pm b/lib/ASM/Util.pm index 325762b..c23fbf6 100644 --- a/lib/ASM/Util.pm +++ b/lib/ASM/Util.pm @@ -1,4 +1,5 @@ package ASM::Util; +no autovivification; use Array::Utils qw(:all); use POSIX qw(strftime); use warnings; @@ -301,7 +302,7 @@ sub notRestricted { sub accountToNicks { my ($module, $account) = @_; $account =~ s/^\$a://; - my @ret = grep( { (lc ($account) eq lc ($::sn{$_}->{account})) } keys %::sn ); + my @ret = grep( { (lc ($account) eq lc ($::sn{$_}->{account} // '')) } keys %::sn ); return \@ret; } |