goto say_false;
}
#endif /* USE_STDIO */
- name = SvOK(*svp) ? savesvpv (*svp) : savepvs ("");
+ name = (SvOK(*svp) || SvGMAGICAL(*svp)) ?
+ savesvpv (*svp) : savepvs ("");
SAVEFREEPV(name);
}
else {
}
}
}
+ PERL_ASYNC_CHECK();
break;
}
#endif
tot--;
}
}
+ PERL_ASYNC_CHECK();
break;
#endif
case OP_UNLINK: