This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
refactor pp_list
[perl5.git]
/
Porting
/
checkpodencoding.pl
diff --git
a/Porting/checkpodencoding.pl
b/Porting/checkpodencoding.pl
index
a2d12df
..
050cbe0
100755
(executable)
--- a/
Porting/checkpodencoding.pl
+++ b/
Porting/checkpodencoding.pl
@@
-22,7
+22,7
@@
find(
sub finder {
my $file = $_;
sub finder {
my $file = $_;
- return if -B $file;
+ return if -
d $file or -
B $file;
open my $fh, '<', $file;
open my $fh, '<', $file;
@@
-30,21
+30,21
@@
sub finder {
next if
# Test cases
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;
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) {
$in_pod = 1;
}
if ($in_pod) {
- if ($line
~
~ /^=encoding (\S+)/) {
+ if ($line
=
~ /^=encoding (\S+)/) {
$has_encoding = 1;
last FILE;
$has_encoding = 1;
last FILE;
- } elsif ($line
~
~ /[^[:ascii:]]/) {
+ } elsif ($line
=
~ /[^[:ascii:]]/) {
my $encoding = guess_encoding($line);
push @non_ascii => {
num => $.,
my $encoding = guess_encoding($line);
push @non_ascii => {
num => $.,
@@
-54,7
+54,7
@@
sub finder {
}
}
}
}
- if ($line
~
~ /^=cut/) {
+ if ($line
=
~ /^=cut/) {
$in_pod = 0;
}
}
$in_pod = 0;
}
}