From: "Robin Barker" <Robin.Barker@npl.co.uk>

Message-ID: <2C2E01334A940D4792B3E115F95B7226C9D18B@exchsvr1.npl.ad.local>

p4raw-id: //depot/perl@31757

diff --git a/pp_ctl.c b/pp_ctl.c
index 08965bf..3d0c1d1 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3068,7 +3068,9 @@ PP(pp_require)
     STRLEN len;
     char * unixname;
     STRLEN unixlen;
+#ifdef VMS
     int vms_unixname = 0;
+#endif
     const char *tryname = NULL;
     SV *namesv = NULL;
     const I32 gimme = GIMME_V;