This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ParseXS.pm: small optimization for "Usage: ..." constant strings
authorAlexey Tourbin <at@altlinux.ru>
Tue, 14 Nov 2006 05:45:40 +0000 (08:45 +0300)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 14 Nov 2006 09:40:43 +0000 (09:40 +0000)
Message-ID: <20061114024540.GA21986@localhost.localdomain>

p4raw-id: //depot/perl@29269

lib/ExtUtils/ParseXS.pm

index 0729397..a5db98d 100644 (file)
@@ -18,7 +18,7 @@ my(@XSStack); # Stack of conditionals and INCLUDEs
 my($XSS_work_idx, $cpp_next_tmp);
 
 use vars qw($VERSION);
 my($XSS_work_idx, $cpp_next_tmp);
 
 use vars qw($VERSION);
-$VERSION = '2.16_01';
+$VERSION = '2.16_02';
 
 use vars qw(%input_expr %output_expr $ProtoUsed @InitFileCode $FH $proto_re $Overload $errors $Fallback
            $cplusplus $hiertype $WantPrototypes $WantVersionChk $except $WantLineNumbers
 
 use vars qw(%input_expr %output_expr $ProtoUsed @InitFileCode $FH $proto_re $Overload $errors $Fallback
            $cplusplus $hiertype $WantPrototypes $WantVersionChk $except $WantLineNumbers
@@ -594,12 +594,12 @@ EOF
     if ($ALIAS)
       { print Q(<<"EOF") if $cond }
 #    if ($cond)
     if ($ALIAS)
       { print Q(<<"EOF") if $cond }
 #    if ($cond)
-#       Perl_croak(aTHX_ "Usage: %s($report_args)", GvNAME(CvGV(cv)));
+#       Perl_croak(aTHX_ "Usage: %s(%s)", GvNAME(CvGV(cv)), "$report_args");
 EOF
     else
       { print Q(<<"EOF") if $cond }
 #    if ($cond)
 EOF
     else
       { print Q(<<"EOF") if $cond }
 #    if ($cond)
-#      Perl_croak(aTHX_ "Usage: $pname($report_args)");
+#       Perl_croak(aTHX_ "Usage: %s(%s)", "$pname", "$report_args");
 EOF
     
      # cv doesn't seem to be used, in most cases unless we go in 
 EOF
     
      # cv doesn't seem to be used, in most cases unless we go in