From 371b82baec4141325824f885d07a8d298069b4fc Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@tnx.nl>
Date: Thu, 28 Feb 2013 02:16:30 +0100
Subject: [PATCH] Remove unused feature to retain compatibility with old Perl.

Blergh, Debian Squeeze (which we use on our revbank system) is still at Perl
5.10...
---
 RevBank/Cart.pm | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

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