Change 33993 by [EMAIL PROTECTED] on 2008/06/03 12:27:43
Make Perl_vms_start_glob() decline politely when passed an empty
argument.
Affected files ...
... //depot/perl/vms/vms.c#227 edit
Differences ...
==== //depot/perl/vms/vms.c#227 (text) ====
Index: perl/vms/vms.c
--- perl/vms/vms.c#226~33550~ 2008-03-24 01:25:46.000000000 -0700
+++ perl/vms/vms.c 2008-06-03 05:27:43.000000000 -0700
@@ -12768,6 +12768,11 @@
unsigned long int lff_flags = 0;
int rms_sts;
+ if (!SvOK(tmpglob)) {
+ SETERRNO(ENOENT,RMS$_FNF);
+ return NULL;
+ }
+
#ifdef VMS_LONGNAME_SUPPORT
lff_flags = LIB$M_FIL_LONG_NAMES;
#endif
End of Patch.
