blob: 487019744b41c11fac57454af2f1aec963d280af (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
# When files are pre-processed (as in Japanese), care must be taken
# when other source files are included because they must also be
# recoded. This routine is called with a list of files to check,
# a filehandle on the first file found is returned.
<:
sub openrecode {
local *FILE;
my $path;
# Put here special cases
# no more since we use UTF-8
# ... and by default return a filehandle on the first file found.
while ($path = shift) {
if (-e $path) {
open(FILE,"< $path");
return *FILE;
}
}
return undef;
}
:>
|