Change 33994 by [EMAIL PROTECTED] on 2008/06/04 03:05:26
Perl_start_glob VMS fix adapted from change #33993 for 5.8.x since
other dependencies prevent integration.
Affected files ...
... //depot/maint-5.8/perl/doio.c#120 edit
Differences ...
==== //depot/maint-5.8/perl/doio.c#120 (text) ====
Index: perl/doio.c
--- perl/doio.c#119~33436~ 2008-03-04 11:54:13.000000000 -0800
+++ perl/doio.c 2008-06-03 20:05:26.000000000 -0700
@@ -2314,6 +2314,11 @@
= {sizeof rslt, DSC$K_DTYPE_VT, DSC$K_CLASS_VS, rslt};
unsigned long int cxt = 0, sts = 0, ok = 1, hasdir = 0, hasver = 0,
isunix = 0;
+ if (!SvOK(tmpglob)) {
+ SETERRNO(ENOENT,RMS$_FNF);
+ return NULL;
+ }
+
/* We could find out if there's an explicit dev/dir or version
by peeking into lib$find_file's internal context at
((struct NAM *)((struct FAB *)cxt)->fab$l_nam)->nam$l_fnb
End of Patch.
