Date: | Sun, 19 Sep 2004 23:48:32 +0400 |
From: | Konstantin Tokar <Konstantin [...] Tokar.RU> |
To: | bug-par [...] rt.cpan.org |
Subject: | -T check error in PAR::Packer |
hi, bug-par.
In function _check_perl(), check -T raise error, if input file contains russian comments.
sub _check_perl {
my ($self, $file) = @_;
return if ($self->_check_par($file));
Show quoted text
>>>>> unless (-T $file) {
$self->_warn("Binary '$file' sure doesn't smell like perl source!\n");
if (my $file_checker = $self->_can_run("file")) {
$self->_vprint(0, "Checking file type... ");
system($file_checker, $file);
}
$self->_die("Please try a perlier file!\n");
}
Example:
D:\>pp a.pl
C:\Perl\bin\pp.BAT: Binary 'a.pl' sure doesn't smell like perl source!
a.pl: Non-ISO extended-ASCII text, with CRLF line terminators
C:\Perl\bin\pp.BAT: Please try a perlier file!
--
С уважением,
Konstantin Tokar mailto:Konstantin@Tokar.RU
Message body is not shown because sender requested not to inline it.