Apache-MimeXML
view release on metacpan or search on metacpan
7778798081828384858687888990919293949596979899100101102103104105106107108109
return
DECLINED;
}
sub
check_for_xml {
my
$filename
=
shift
;
my
$firstline
;
if
(
ref
(
$filename
) && UNIVERSAL::isa(
$filename
,
'IO::Handler'
)) {
my
$fh
=
$filename
;
binmode
$fh
;
sysread
(
$fh
,
$firstline
, 200);
# Read 200 bytes. This is a guestimate...
}
else
{
eval
{
my
$fh
= *{
$filename
}{IO};
binmode
$fh
;
sysread
(
$fh
,
$firstline
, 200);
# Read 200 bytes. This is a guestimate...
};
if
($@) {
eval
{
open
(FH,
$filename
) or
die
"Open failed: $!"
;
binmode
FH;
sysread
(FH,
$firstline
, 200);
# Read 200 bytes. This is a guestimate...
close
FH;
};
if
($@) {
warn
"failed? $@\n"
;
return
;
}
}
}
( run in 0.304 second using v1.01-cache-2.11-cpan-0d8aa00de5b )