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

diff --git a/lib/Carp.pm b/lib/Carp.pm
index 6199f89..6230bb7 100644 (file)
--- 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 c3d3c26..67c9ceb 100644 (file)
--- 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;