Dear Sir,
This fragment
host = perl_eval_pv("use Sys::Hostname; my $t = hostname; $t =~
s/\\..*$//; $t", FALSE) ;
if ( SvTRUE(ERRSV) ) {
warn("SambaPtr::my_hostname() died somewhere in
eval_pv(..hostname): %s", ERRSV) ;
return NULL ;
}
seems to happily trap any run-time errors (when Sys::Hostname failes to
return) in a variety of Perl5s.
>From the 5.005_03 man page, perlguts
perl_eval_pv
Tells Perl to eval the given string and return an
SV* result.
SV* perl_eval_pv (char* p, I32
croak_on_error)
There is no mention of the string having to contain its own eval ''.
HTH.
Yours sincerely.
--
------------------------------------------------------------------------
Stanley Hopcroft
------------------------------------------------------------------------
'...No man is an island, entire of itself; every man is a piece of the
continent, a part of the main. If a clod be washed away by the sea,
Europe is the less, as well as if a promontory were, as well as if a
manor of thy friend's or of thine own were. Any man's death diminishes
me, because I am involved in mankind; and therefore never send to know
for whom the bell tolls; it tolls for thee...'
from Meditation 17, J Donne.
