cwd is no longer in @INC in new perl versions

This commit is contained in:
Juerd Waalboer 2017-02-18 22:30:52 +01:00
parent 5a10c8f8a2
commit b0ee7e88bf
8 changed files with 14 additions and 1 deletions

View file

@ -26,6 +26,11 @@ sub add {
push @{ $self->{ $user } }, $item;
}
sub delete {
my ($self, $user, $index) = @_;
splice @{ $self->{ $user } }, $index, 1, ();
}
sub empty {
my ($self) = @_;
%$self = ();
@ -122,5 +127,10 @@ sub select_items {
return @matches;
}
sub is_multi_user {
my ($self) = @_;
return keys(%$self) > 1;
}
1;

View file

@ -5,11 +5,14 @@ use attributes;
use IO::Select;
use List::Util ();
use Term::ReadLine;
require Term::ReadLine::Gnu; # The other one sucks.
use FindBin qw($RealBin);
use lib "$RealBin/lib";
use RevBank::Plugins;
use RevBank::Global;
use RevBank::Messages;
use RevBank::Cart;
require Term::ReadLine::Gnu; # The other one sucks.
our $VERSION = "2.0";
our %HELP = (