File Coverage

File:check-pattern-file.pl
Coverage:89.3%

linestmtbrancondsubtimecode
1#!/usr/bin/env perl
2
3
1
1
1
1
1043
1
478
use CheckSpelling::CheckPattern;
4
5
1
36841
my $file = $ENV{file};
6
1
1
1
1
1
12
232
6
2
open WARNINGS, ">>:encoding(UTF-8)", $ENV{early_warnings};
7
1
285
$extension = '.orig';
8
1
15
LINE: while (<>) {
9
1
50
1
  if ($ARGV ne $oldargv) {
10
1
1
    $backup = $ARGV . $extension;
11
1
21
    rename($ARGV, $backup);
12
1
19
    open(ARGVOUT, ">$ARGV");
13
1
2
    select(ARGVOUT);
14
1
2
    $oldargv = $ARGV;
15  }
16
17
1
2
  my ($line, $warning) = CheckSpelling::CheckPattern::process_line($_);
18
1
7
  print "$line\n";
19
1
50
5
  if ($warning) {
20
0
0
    print WARNINGS "$file:$.:$warning";
21  }
22}
23
1
1
select(STDOUT);
24
25
1
0
close(WARNINGS);