view release on metacpan or search on metacpan
lib/Arabic.pm view on Meta::CPAN
my $e_script = Arabic::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/Big5HKSCS.pm view on Meta::CPAN
my $e_script = Big5HKSCS::escape_script($filename);
print {$fh} $e_script;
my $mode = (Ebig5hkscs::stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/Big5Plus.pm view on Meta::CPAN
my $e_script = Big5Plus::escape_script($filename);
print {$fh} $e_script;
my $mode = (Ebig5plus::stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/Cyrillic.pm view on Meta::CPAN
my $e_script = Cyrillic::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/EUCJP.pm view on Meta::CPAN
my $e_script = EUCJP::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/EUCTW.pm view on Meta::CPAN
my $e_script = EUCTW::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/GB18030.pm view on Meta::CPAN
my $e_script = GB18030::escape_script($filename);
print {$fh} $e_script;
my $mode = (Egb18030::stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
my $e_script = GBK::escape_script($filename);
print {$fh} $e_script;
my $mode = (Egbk::stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/Greek.pm view on Meta::CPAN
my $e_script = Greek::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/HP15.pm view on Meta::CPAN
my $e_script = HP15::escape_script($filename);
print {$fh} $e_script;
my $mode = (Ehp15::stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/Hebrew.pm view on Meta::CPAN
my $e_script = Hebrew::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/INFORMIXV6ALS.pm view on Meta::CPAN
my $e_script = INFORMIXV6ALS::escape_script($filename);
print {$fh} $e_script;
my $mode = (Einformixv6als::stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/JIS8.pm view on Meta::CPAN
my $e_script = JIS8::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/KOI8R.pm view on Meta::CPAN
my $e_script = KOI8R::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/KOI8U.pm view on Meta::CPAN
my $e_script = KOI8U::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/KPS9566.pm view on Meta::CPAN
my $e_script = KPS9566::escape_script($filename);
print {$fh} $e_script;
my $mode = (Ekps9566::stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/Latin1.pm view on Meta::CPAN
my $e_script = Latin1::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/Latin10.pm view on Meta::CPAN
my $e_script = Latin10::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/Latin2.pm view on Meta::CPAN
my $e_script = Latin2::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/Latin3.pm view on Meta::CPAN
my $e_script = Latin3::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/Latin4.pm view on Meta::CPAN
my $e_script = Latin4::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/Latin5.pm view on Meta::CPAN
my $e_script = Latin5::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/Latin6.pm view on Meta::CPAN
my $e_script = Latin6::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/Latin7.pm view on Meta::CPAN
my $e_script = Latin7::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/Latin8.pm view on Meta::CPAN
my $e_script = Latin8::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/Latin9.pm view on Meta::CPAN
my $e_script = Latin9::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/OldUTF8.pm view on Meta::CPAN
my $e_script = OldUTF8::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/Sjis.pm view on Meta::CPAN
my $e_script = Sjis::escape_script($filename);
print {$fh} $e_script;
my $mode = (Esjis::stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
if ($^O eq 'MacOS') {
CORE::eval q{
CORE::require Mac::Files;
Mac::Files::FSpRstFLock("$filename.e");
view release on metacpan or search on metacpan
lib/TIS620.pm view on Meta::CPAN
my $e_script = TIS620::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
my $e_script = UHC::escape_script($filename);
print {$fh} $e_script;
my $mode = (Euhc::stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();