From 773da73dfa33b0e98b1b569c181e560f7f7a579f Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 11 Mar 2003 20:04:33 +0000
Subject: """glob.*""" patch for VMS, from Peter Prymmer.

p4raw-id: //depot/perl@18927
---
 vms/vms.c | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'vms/vms.c')

diff --git a/vms/vms.c b/vms/vms.c
index aa9421d6bf..e0788f8508 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -4252,6 +4252,7 @@ static void mp_expand_wild_cards(pTHX_ char *item,
 int expcount = 0;
 unsigned long int context = 0;
 int isunix = 0;
+int item_len = 0;
 char *had_version;
 char *had_device;
 int had_directory;
@@ -4271,6 +4272,20 @@ unsigned long int zero = 0, sts;
 	add_item(head, tail, item, count);
 	return;
 	}
+    else
+        {
+     /* "double quoted" wild card expressions pass as is */
+     /* From DCL that means using e.g.:                  */
+     /* perl program """perl.*"""                        */
+     item_len = strlen(item);
+     if ( '"' == *item && '"' == item[item_len-1] )
+       {
+       item++;
+       item[item_len-2] = '\0';
+       add_item(head, tail, item, count);
+       return;
+       }
+     }
     resultspec.dsc$b_dtype = DSC$K_DTYPE_T;
     resultspec.dsc$b_class = DSC$K_CLASS_D;
     resultspec.dsc$a_pointer = NULL;
-- 
cgit v1.2.1