検索条件
全27件
(2/3ページ)


Content-type: text/html; charset=utf-8
4637Content-type:
# HTMLヘッダ出力
sub out_header {
my ($mimetype,$hstr) = @_ ;
print $hstr if ($hstr ne "") ;
print "Content-type: $mimetype\n\n" ;
}
out_header('text/html; charset=utf-8',length($outstr),undef) ;
error in 'BODY': error in 'Block': error in 'break': error in 'do': error in
'eval': eval error: 'print' trapped by operation mask at (eval 2122) line 2,
line 3873.
: '
print "page",$page->pagenum,"\n" if $Args{'XPDFJ:verbose'} >= 0;
$Args{hfpage} ||= $page->pagenum;
' at libs/XPDFJ.pm line 589, line 3873.
ここで再び Google殿に尋ねると、perl 5.10 にて同じ現象で嵌った方が、、
# <eval>;
# print "page",$page->pagenum,"\n" if $Args{'XPDFJ:verbose'} >= 0;
# $Args{hfpage} ||= $page->pagenum;
# </eval>
こんな感じで「暴挙」を実施したところ・・・