patch below fixes, you can see the problem excercised with this little
test too:
use POSIX ();
for (1,2) {
undef &POSIX::isalnum;
}
Index: op.c
===================================================================
RCS file: /usr/local/cvs_repository/perl-current-mirror/op.c,v
retrieving revision 1.1.1.45
diff -u -r1.1.1.45 op.c
--- op.c 2001/07/06 16:37:22 1.1.1.45
+++ op.c 2001/07/06 16:39:38
@@ -4161,8 +4161,8 @@
#ifdef USE_ITHREADS
if (CvFILE(cv) && !CvXSUB(cv)) {
Safefree(CvFILE(cv));
- CvFILE(cv) = 0;
}
+ CvFILE(cv) = 0;
#endif
if (!CvXSUB(cv) && CvROOT(cv)) {
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
