diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-21 16:53:39 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-21 16:53:39 +0000 |
| commit | b22c7a20398f928f9697b491d180b979ff211bd6 (patch) | |
| tree | a7c022e6617a2b7ee0b3de5e556bca3ccca7a397 /utils/perlbug.PL | |
| parent | f22444f551ba0fe71cb3979541c3e330a1c83a89 (diff) | |
| download | perl-b22c7a20398f928f9697b491d180b979ff211bd6.tar.gz | |
generalize "%v" format into a flag for any integral format type:
"%vd", "%v#o", "%*vX", etc are allowed
p4raw-id: //depot/perl@5181
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 97f8d867da..f46564ea5f 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%v", $^V); +my $extract_version = sprintf("v%vd", $^V); print OUT <<"!GROK!THIS!"; $Config{startperl} @@ -133,7 +133,7 @@ my( $file, $usefile, $cc, $address, $perlbug, $testaddress, $filename, $subject, $from, $verbose, $ed, $outfile, $Is_MacOS, $fh, $me, $Is_MSWin32, $Is_VMS, $msg, $body, $andcc, %REP, $ok); -my $perl_version = $^V ? sprintf("v%v", $^V) : $]; +my $perl_version = $^V ? sprintf("v%vd", $^V) : $]; my $config_tag2 = "$perl_version - $Config{cf_time}"; |