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

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

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)