[Module-build-checkins] ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform VMS.pm,1.12,1.13

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2866/lib/ExtUtils/CBuilder/Platform

Modified Files:
	VMS.pm 
Log Message:
More arg_defines() fixes for VMS

Index: VMS.pm
===================================================================
RCS file: /cvsroot/module-build/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/VMS.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- VMS.pm	15 Mar 2006 22:51:33 -0000	1.12
+++ VMS.pm	25 Mar 2006 04:23:53 -0000	1.13
@@ -14,18 +14,18 @@
 
   s/"/""/g foreach values %args;
 
-  my $config_defines;
+  my @config_defines;
 
   # VMS can only have one define qualifier; add the one from config, if any.
-  if ($self->{config}{ccflags} =~ s{/def[^=]+(?:=)+(?:\()?([^\/\)]*)} {}i) {
-    $config_defines = $1;
+  if ($self->{config}{ccflags} =~ s{/  def[^=]+  =+  \(?  ([^\/\)]*)  } {}ix) {
+    push @config_defines, $1;
   }
 
-  return unless (scalar keys %args) || $config_defines;
+  return '' unless keys(%args) || @config_defines;
 
   return ('/define=(' 
-          . (defined $config_defines ? "$config_defines," : '')
           . join(',', 
+		 @config_defines,
                  map "\"$_" . ( length($args{$_}) ? "=$args{$_}" : '') . "\"", 
                      keys %args) 
           . ')');