summaryrefslogtreecommitdiff
path: root/Porting/checkpodencoding.pl
diff options
context:
space:
mode:
authorBrian Fraser <fraserbn@gmail.com>2013-03-23 17:42:00 -0300
committerKarl Williamson <public@khwilliamson.com>2013-03-26 21:06:51 -0600
commitdf711a6015fca36881af2e0c4c5fc3eb58221863 (patch)
tree14b1eb7426f95cce17ef6aee29746865eb65d78a /Porting/checkpodencoding.pl
parent44bda1357563f00c4856ad314c8cde43bba62433 (diff)
downloadperl-df711a6015fca36881af2e0c4c5fc3eb58221863.tar.gz
Porting/checkpodencoding.pl: Drop dependency on smartmatch
Diffstat (limited to 'Porting/checkpodencoding.pl')
-rwxr-xr-xPorting/checkpodencoding.pl10
1 files changed, 5 insertions, 5 deletions
diff --git a/Porting/checkpodencoding.pl b/Porting/checkpodencoding.pl
index a2d12df494..a936368275 100755
--- a/Porting/checkpodencoding.pl
+++ b/Porting/checkpodencoding.pl
@@ -30,21 +30,21 @@ sub finder {
next if
# Test cases
- $file ~~ m[Pod-Simple/t];
+ $file =~ m[Pod-Simple/t];
my ($in_pod, $has_encoding, @non_ascii);
FILE: while (my $line = <$fh>) {
chomp $line;
- if ($line ~~ /^=[a-z]+/) {
+ if ($line =~ /^=[a-z]+/) {
$in_pod = 1;
}
if ($in_pod) {
- if ($line ~~ /^=encoding (\S+)/) {
+ if ($line =~ /^=encoding (\S+)/) {
$has_encoding = 1;
last FILE;
- } elsif ($line ~~ /[^[:ascii:]]/) {
+ } elsif ($line =~ /[^[:ascii:]]/) {
my $encoding = guess_encoding($line);
push @non_ascii => {
num => $.,
@@ -54,7 +54,7 @@ sub finder {
}
}
- if ($line ~~ /^=cut/) {
+ if ($line =~ /^=cut/) {
$in_pod = 0;
}
}