diff options
Diffstat (limited to 'utils/perlbug.PL')
| -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}"; |