Update of /cvsroot/module-build/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5481/lib/ExtUtils/CBuilder/Platform
Modified Files:
VMS.pm
Log Message:
Handle the case when there are no config-defines
Index: VMS.pm
===================================================================
RCS file: /cvsroot/module-build/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/VMS.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- VMS.pm 15 Mar 2006 22:48:16 -0000 1.11
+++ VMS.pm 15 Mar 2006 22:51:33 -0000 1.12
@@ -14,17 +14,17 @@
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,";
+ $config_defines = $1;
}
return unless (scalar keys %args) || $config_defines;
return ('/define=('
- . $config_defines
+ . (defined $config_defines ? "$config_defines," : '')
. join(',',
map "\"$_" . ( length($args{$_}) ? "=$args{$_}" : '') . "\"",
keys %args)
|
