bitlair/revbank
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove unused feature to retain compatibility with old Perl.

Browse source 
Blergh, Debian Squeeze (which we use on our revbank system) is still at Perl
5.10...
This commit is contained in:
Juerd Waalboer 2013-02-28 02:16:30 +01:00
parent d11d31ec2e
commit 371b82baec
1 changed files with 1 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
RevBank/Cart.pm
View file

@ -106,9 +106,7 @@ sub checkout {
} }
sub select_items { sub select_items {
my ($self, $key, $smartmatch) = @_; my ($self, $key) = @_;
use v5.12; # New smartmatch semantics
my @matches; my @matches;
for my $user (keys %$self) { for my $user (keys %$self) {
@ -116,7 +114,6 @@ sub select_items {
push @matches, { user => $user, %$item } push @matches, { user => $user, %$item }
if @_ == 1 # No key or match given: match everything if @_ == 1 # No key or match given: match everything
or @_ == 2 and exists $item->{ $key } # Just a key or @_ == 2 and exists $item->{ $key } # Just a key
or @_ == 3 and $item->{ $key } ~~ $smartmatch;
} }
} }