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 |
- |
|
|