From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 9 Oct 2001 13:52:50 +0000 (+0000)
Subject: Seems that a glob(undef) triggers an ACCVIO in Perl_flex_stat
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e956e27a94f466949439d93a695bd66abfb7dbef;p=p5sagit%2Fp5-mst-13.2.git

Seems that a glob(undef) triggers an ACCVIO in Perl_flex_stat
Seems that a glob(undef) triggers an ACCVIO in Perl_flex_stat,
when a NULL is passed for the filename string pointer.
From Charles Lane.

p4raw-id: //depot/perl@12381
---

diff --git a/vms/vms.c b/vms/vms.c
index c076809..fd02f85 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -6378,6 +6378,7 @@ Perl_flex_stat(pTHX_ const char *fspec, Stat_t *statbufp)
     char temp_fspec[NAM$C_MAXRSS+300];
     int retval = -1;
 
+    if (!fspec) return retval;
     strcpy(temp_fspec, fspec);
     if (statbufp == (Stat_t *) &PL_statcache)
       do_tovmsspec(temp_fspec,namecache,0);