From: Jarkko Hietaniemi Date: Mon, 11 Jun 2001 12:30:06 +0000 (+0000) Subject: Add final commas to lists as suggested by Philip Newton. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=19d75edaf35287dfc8bc9b6f13bb73a2ca28b226;p=p5sagit%2Fp5-mst-13.2.git 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 --- 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 --- 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;