diff options
| author | Steve Hay <SteveHay@planit.com> | 2004-01-07 13:22:30 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-01-10 23:39:38 +0000 |
| commit | 1798c67defb5bf831197d466a4471ea6e6e6d7d0 (patch) | |
| tree | aff274abdcdd0765875082b0fb48950fd63e9daa /lib | |
| parent | 4c77eaa22dfbda2696a2fb937b406b4e26202676 (diff) | |
| download | perl-1798c67defb5bf831197d466a4471ea6e6e6d7d0.tar.gz | |
Nicer formatting for function arguments in Carp messages
Message-ID: <3FFC0816.9090406@uk.radan.com>
(and increment version number in Carp)
p4raw-id: //depot/perl@22109
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Carp.pm | 2 | ||||
| -rw-r--r-- | lib/Carp/Heavy.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lib/Carp.pm b/lib/Carp.pm index 6199f89448..6230bb7827 100644 --- a/lib/Carp.pm +++ b/lib/Carp.pm @@ -1,6 +1,6 @@ package Carp; -our $VERSION = '1.01'; +our $VERSION = '1.02'; =head1 NAME diff --git a/lib/Carp/Heavy.pm b/lib/Carp/Heavy.pm index c3d3c26fa1..67c9ceb11f 100644 --- a/lib/Carp/Heavy.pm +++ b/lib/Carp/Heavy.pm @@ -34,7 +34,7 @@ sub caller_info { push @args, '...'; } # Push the args onto the subroutine - $sub_name .= '(' . join (',', @args) . ')'; + $sub_name .= '(' . join (', ', @args) . ')'; } $call_info{sub_name} = $sub_name; return wantarray() ? %call_info : \%call_info; |