summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-06-11 12:30:06 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-06-11 12:30:06 +0000
commit19d75edaf35287dfc8bc9b6f13bb73a2ca28b226 (patch)
treed72da9ca431f8e828ed7b48531438e36d1e560da
parent95e8664e86da93255f26600f44bbbd70bf5b5b0e (diff)
downloadperl-19d75edaf35287dfc8bc9b6f13bb73a2ca28b226.tar.gz
Add final commas to lists as suggested by Philip Newton.
p4raw-id: //depot/perl@10513
-rw-r--r--lib/ExtUtils/Constant.pm6
-rw-r--r--t/lib/extutils.t2
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;