Permalink
Browse files

The ~~ smart match requires Perl 5.10 and rakudo is supposed to be OK…

… with Perl 5.8. Don't see why =~ isn't enough.
  • Loading branch information...
1 parent 0e05bd5 commit 5e75fe9c26fdcf1f3a878a27fe91f541e7738934 @ronaldxs committed Apr 29, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 fudge
View
2 fudge
@@ -33,7 +33,7 @@ if (@ARGV == 3) {
$IN = shift;
} elsif (@ARGV == 2) {
my $arg = shift;
- if ($arg ~~ m/\.t$/) {
+ if ($arg =~ /\.t$/) {
# test fudged
$IN = $arg;
$OUT = shift;

0 comments on commit 5e75fe9

Please sign in to comment.