diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-09-27 19:13:20 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-09-27 19:13:20 +0000 |
| commit | cc50ac46d6f5968c34044ce7c501b06af15fc51a (patch) | |
| tree | dfeb6dc8ec2df2665d033a7adf1f0fcbfba6f0aa /ext | |
| parent | 027324191578735894e418121f85cf5c15e47c31 (diff) | |
| download | perl-cc50ac46d6f5968c34044ce7c501b06af15fc51a.tar.gz | |
Artistic fine-tuning.
p4raw-id: //depot/cfgperl@4243
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/defsubs_h.PL | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/defsubs_h.PL b/ext/B/defsubs_h.PL index 8dfa3a5fe2..78c82f20bd 100644 --- a/ext/B/defsubs_h.PL +++ b/ext/B/defsubs_h.PL @@ -6,7 +6,7 @@ my ($out) = __FILE__ =~ /(^.*)\.PL/; if ($^O eq 'VMS') { ($out) = __FILE__ =~ /^(.+)_PL$/i; } $out =~ s/_h$/.h/; open(OUT,">$out") || die "Cannot open $file:$!"; -print "Extracting $out . . .\n"; +print "Extracting $out...\n"; foreach my $const (qw(AVf_REAL HEf_SVKEY SVf_IOK SVf_IVisUV SVf_NOK SVf_POK |