From: Steve Hay <SteveHay@planit.com>
Date: Wed, 7 Jan 2004 13:22:30 +0000 (+0000)
Subject: Nicer formatting for function arguments in Carp messages
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1798c67defb5bf831197d466a4471ea6e6e6d7d0;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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;