diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-11 12:30:06 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-11 12:30:06 +0000 |
commit | 19d75edaf35287dfc8bc9b6f13bb73a2ca28b226 (patch) | |
tree | d72da9ca431f8e828ed7b48531438e36d1e560da | |
parent | 95e8664e86da93255f26600f44bbbd70bf5b5b0e (diff) | |
download | perl-19d75edaf35287dfc8bc9b6f13bb73a2ca28b226.tar.gz |
Add final commas to lists as suggested by Philip Newton.
p4raw-id: //depot/perl@10513
-rw-r--r-- | lib/ExtUtils/Constant.pm | 6 | ||||
-rw-r--r-- | t/lib/extutils.t | 2 |
2 files changed, 5 insertions, 3 deletions
diff --git a/lib/ExtUtils/Constant.pm b/lib/ExtUtils/Constant.pm index 25feacc5ff..aeaaf9f40b 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 48c2aa30e4..6cb14141f4 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; |