From fa5100836c26213fcd36d36f98535278912c8556 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 17 Sep 2005 18:40:29 +0000
Subject: vv5.9.3 is clearly a bug.

p4raw-id: //depot/perl@25444
---
 utils/perlbug.PL | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'utils/perlbug.PL')

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index 8f3e6a0d2c..c778c9c09b 100644
--- a/utils/perlbug.PL
+++ b/utils/perlbug.PL
@@ -57,7 +57,7 @@ print "Extracting $file (with variable substitutions)\n";
 # In this section, perl variables will be expanded during extraction.
 # You can use $Config{...} to use Configure variables.
 
-my $extract_version = sprintf("v%vd", $^V);
+my $extract_version = sprintf("%vd", $^V);
 
 print OUT <<"!GROK!THIS!";
 $Config{startperl}
@@ -145,7 +145,7 @@ my( $file, $usefile, $cc, $address, $perlbug, $testaddress, $filename, $messagei
     $fh, $me, $Is_MSWin32, $Is_Linux, $Is_VMS, $msg, $body, $andcc, %REP, $ok,
     $Is_OpenBSD);
 
-my $perl_version = $^V ? sprintf("v%vd", $^V) : $];
+my $perl_version = $^V ? sprintf("%vd", $^V) : $];
 
 my $config_tag2 = "$perl_version - $Config{cf_time}";
 
-- 
cgit v1.2.1