This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
remove dup hunks
[perl5.git] / vms / vms.c
index ab24000..5d5f7f7 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -95,10 +95,6 @@ static bool will_taint = FALSE;  /* tainting active, but no PL_curinterp yet */
 /* munching */ 
 static int no_translate_barewords;
 
 /* munching */ 
 static int no_translate_barewords;
 
-/* True if we shouldn't treat barewords as logicals during directory */
-/* munching */ 
-static int no_translate_barewords;
-
 /*{{{int vmstrnenv(const char *lnm, char *eqv, unsigned long int idx, struct dsc$descriptor_s **tabvec, unsigned long int flags) */
 int
 vmstrnenv(const char *lnm, char *eqv, unsigned long int idx,
 /*{{{int vmstrnenv(const char *lnm, char *eqv, unsigned long int idx, struct dsc$descriptor_s **tabvec, unsigned long int flags) */
 int
 vmstrnenv(const char *lnm, char *eqv, unsigned long int idx,