Add a couple of newlines for tidier regen output, consistent with the
Nicholas Clark [Mon, 26 Dec 2005 17:01:35 +0000 (17:01 +0000)]
code generated by WriteConstants()

p4raw-id: //depot/perl@26491

lib/ExtUtils/Constant/XS.pm

index 51244f6..c98583a 100644 (file)
@@ -10,7 +10,7 @@ require ExtUtils::Constant::Base;
 @ISA = qw(ExtUtils::Constant::Base Exporter);
 @EXPORT_OK = qw(%XS_Constant %XS_TypeSet);
 
-$VERSION = '0.01';
+$VERSION = '0.02';
 
 $is_perl56 = ($] < 5.007 && $] > 5.005_50);
 
@@ -221,7 +221,7 @@ EOT
                                @items);
   $result .= <<'EOT';
 
-print constant_types(); # macro defs
+print constant_types(), "\n"; # macro defs
 EOT
   $package = perl_stringify($package);
   $result .=
@@ -239,7 +239,7 @@ EOT
   $result .= ", $breakout" . ', @names) ) {
     print $_, "\n"; # C constant subs
 }
-print "#### XS Section:\n";
+print "\n#### XS Section:\n";
 print XS_constant ("' . $package . '", $types);
 __END__
    */