[Module-build-checkins] ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform VMS.pm,1.9,1.10

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

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

Modified Files:
	VMS.pm 
Log Message:
Fix /define on VMS

Index: VMS.pm
===================================================================
RCS file: /cvsroot/module-build/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/VMS.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- VMS.pm	13 Sep 2005 02:38:21 -0000	1.9
+++ VMS.pm	13 Mar 2006 21:57:01 -0000	1.10
@@ -9,6 +9,21 @@
 
 sub need_prelink { 0 }
 
+sub arg_defines {
+  my ($self, %args) = @_;
+
+  s/"/""/g foreach values %args;
+
+  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,";
+  }
+
+  return ('/define=(' . $config_defines . join(',', map "\"$_=$args{$_}\"", keys %args) . ')');
+}
+
 sub arg_include_dirs {
   my ($self, @dirs) = @_;