t/porting/dual-life.t: Drop dependency on smartmatch
authorBrian Fraser <fraserbn@gmail.com>
Mon, 25 Mar 2013 05:10:08 +0000 (02:10 -0300)
committerKarl Williamson <public@khwilliamson.com>
Wed, 27 Mar 2013 03:06:52 +0000 (21:06 -0600)
t/porting/dual-life.t

index 5bbdd28..e757644 100644 (file)
@@ -53,7 +53,7 @@ for my $f ( @programs ) {
   $f =~ s/\.\z// if $^O eq 'VMS';
   next if $f =~ $not_installed;
   my $bn = basename($f);
-  if(qr/\A(?i:$bn)\z/ ~~ %dist_dir_exe) {
+  if(grep { /\A(?i:$bn)\z/ } keys %dist_dir_exe) {
     ok( -f "$dist_dir_exe{lc $bn}$ext", "$f$ext");
   } else {
     ok( -f catfile('..', 'utils', "$bn$ext"), "$f$ext" );