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) = @_;
|
