|
Lines 28-35
find(
Link Here
|
| 28 |
open my $fh, $_ or die "Could not open $_: $!"; |
28 |
open my $fh, $_ or die "Could not open $_: $!"; |
| 29 |
my @lines = sort grep /\_\(\'/, <$fh>; |
29 |
my @lines = sort grep /\_\(\'/, <$fh>; |
| 30 |
push @files, { name => "$_", lines => \@lines } if @lines; |
30 |
push @files, { name => "$_", lines => \@lines } if @lines; |
| 31 |
}, |
31 |
},qw# |
| 32 |
( "./koha-tmpl/opac-tmpl/prog/en", "./koha-tmpl/intranet-tmpl/prog/en" ) |
32 |
./koha-tmpl/opac-tmpl/prog/en |
|
|
33 |
./koha-tmpl/opac-tmpl/bootstrap/en |
| 34 |
./koha-tmpl/intranet-tmpl/prog/en |
| 35 |
# |
| 33 |
); |
36 |
); |
| 34 |
|
37 |
|
| 35 |
ok( !@files, "Files do not contain single quotes _(' " ) |
38 |
ok( !@files, "Files do not contain single quotes _(' " ) |
| 36 |
- |
|
|