Add final commas to lists as suggested by Philip Newton.

p4raw-id: //depot/perl@10513

diff --git a/lib/ExtUtils/Constant.pm b/lib/ExtUtils/Constant.pm
index 25feacc..aeaaf9f 100644 (file)
--- a/lib/ExtUtils/Constant.pm
+++ b/lib/ExtUtils/Constant.pm
@@ -104,7 +104,7 @@ $VERSION = '0.04';
                 PVN => 'PUSHp(pv, iv)',
                YES => 'PUSHs(&PL_sv_yes)',
                NO => 'PUSHs(&PL_sv_no)',
-               UNDEF => ''     # implicit undef
+               UNDEF => '',    # implicit undef
 );
 
 %XS_TypeSet = (
@@ -113,7 +113,9 @@ $VERSION = '0.04';
                 NV => '*nv_return =',
                 PV => '*pv_return =',
                 PVN => ['*pv_return =', '*iv_return = (IV)'],
-               YES => undef, NO => undef, UNDEF => undef
+               YES   => undef,
+               NO    => undef,
+               UNDEF => undef,
 );
 
 

diff --git a/t/lib/extutils.t b/t/lib/extutils.t
index 48c2aa3..6cb1414 100644 (file)
--- a/t/lib/extutils.t
+++ b/t/lib/extutils.t
@@ -54,7 +54,7 @@ my @names = ("FIVE", {name=>"OK6", type=>"PV",},
              {name => "ANSWER", default=>["UV", 42]}, "NOTDEF",
              {name => "Yes", type=>"YES"},
              {name => "No", type=>"NO"},
-             {name => "Undef", type=>"UNDEF"}
+             {name => "Undef", type=>"UNDEF"},
 );
 
 my @names_only = map {(ref $_) ? $_->{name} : $_} @names;