This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Nicer formatting for function arguments in Carp messages
authorSteve Hay <SteveHay@planit.com>
Wed, 7 Jan 2004 13:22:30 +0000 (13:22 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sat, 10 Jan 2004 23:39:38 +0000 (23:39 +0000)
Message-ID: <3FFC0816.9090406@uk.radan.com>

(and increment version number in Carp)

p4raw-id: //depot/perl@22109

lib/Carp.pm
lib/Carp/Heavy.pm

index 6199f89..6230bb7 100644 (file)
@@ -1,6 +1,6 @@
 package Carp;
 
-our $VERSION = '1.01';
+our $VERSION = '1.02';
 
 =head1 NAME
 
index c3d3c26..67c9ceb 100644 (file)
@@ -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;