diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-09-17 18:40:29 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-09-17 18:40:29 +0000 |
| commit | fa5100836c26213fcd36d36f98535278912c8556 (patch) | |
| tree | ef6e5b0a93e968e9ba471dd19fa966f0239bd5e9 /utils | |
| parent | 0f788cd2167eac467cb834bf10fb461045b10ece (diff) | |
| download | perl-fa5100836c26213fcd36d36f98535278912c8556.tar.gz | |
vv5.9.3 is clearly a bug.
p4raw-id: //depot/perl@25444
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/perlbug.PL | 4 |
1 files changed, 2 insertions, 2 deletions
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}"; |