From: "Robin Barker" <Robin.Barker@npl.co.uk>
[perl.git] / 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;