Remove smart matching, now an experimental feature

briandfoy · Apr 5, 2015 · f81cca9 · f81cca9
1 parent dcf8fe8
commit f81cca9
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 8 deletions.
diff --git a/script/unifont b/script/unifont
@@ -80,7 +80,7 @@ sub refont {
         die if $@;
         #s/ /\N{NO-BREAK SPACE}\N{NO-BREAK SPACE}/g;
         s/ /\N{NO-BREAK SPACE}/g;
-        s/\p{Upper}\K/\N{NARROW NO-BREAK SPACE}/g if $name ~~ [ qr/fraktur/i, qr/script/i ];
+        s/\p{Upper}\K/\N{NARROW NO-BREAK SPACE}/g if $name =~ m/fraktur|script/i;
         printf "%26s %s\n", "$name:", $_  unless $orig eq $_;
     } 
 

diff --git a/script/unilook b/script/unilook
@@ -793,7 +793,7 @@ sub handle_options {
 
     my @no_types = map { "no$_" } @yes_types;
 
-    if (@no_types ~~ %Opt && @yes_types ~~ %Opt ) {
+    if ( ( grep { exists $Opt{$_} } @no_types ) && ( grep { exists $Opt{$_} } @yes_types ) ) {
 	# can't have both
 	pod2usage("Usage error: incompatible mix of yes and no options");
     }
@@ -1382,7 +1382,8 @@ sub is_runnable {
 }
 
 sub stupid_evil_and_wrong {
-    return lc $OSNAME ~~ [ qw<dos os2 netware symbian mswin32> ];
+	my $name = lc $OSNAME;
+    return grep { $name eq $_ } qw<dos os2 netware symbian mswin32>;
 }
 
 #################################################################

diff --git a/script/uniquote b/script/uniquote
@@ -230,12 +230,12 @@ sub set_encoding(*$) {
 
     my $enc_name;
 
-    if (%Opt ~~ ["bytes", "octal"]) {
+    if ( grep { exists $Opt{$_} } qw(bytes octal) ) {
         $enc_name = "bytes";
     }
     elsif (my $enc = $Opt{encoding}) {
         $enc =~ s/^://;
-        if ($enc ~~ [qw(bytes crlf utf8)]) {
+        if ( grep { $enc eq $_ } qw(bytes crlf utf8) ) {
             $enc_name = $enc;
         } else {
             $enc_name = "encoding($enc)";
@@ -2866,11 +2866,11 @@ sub commaʼd_list {
         when (0)  { return q() }
         when (1)  { return $arg[0] }
         when (2)  {
-            panic("list @arg already has an and in it") if @arg ~~ /\band\b/;
+            panic("list @arg already has an and in it") if grep /\band\b/, @arg;
             return "$arg[0] and $arg[1]";
         }
         default   {
-            panic("list @arg already has an and in it") if @arg ~~ /\band\b/;
+            panic("list @arg already has an and in it") if grep /\band\b/, @arg;
             return join "$sepchar " => (
                 @arg[ 0 .. ($#arg-1) ],
                 "and $arg[-1]",
@@ -3164,7 +3164,7 @@ First public release February 27, 2011.
 
 =head1 AUTHOR
 
-Tom Christiansen <I<tchrist@perl.com>>
+Tom Christiansen C<< <tchrist@perl.com> >>
 
 =head1 COPYRIGHT AND LICENCE