From: Jarkko Hietaniemi Date: Mon, 27 Sep 1999 19:13:20 +0000 (+0000) Subject: Artistic fine-tuning. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cc50ac46d6f5968c34044ce7c501b06af15fc51a;p=p5sagit%2Fp5-mst-13.2.git Artistic fine-tuning. p4raw-id: //depot/cfgperl@4243 --- diff --git a/ext/B/defsubs_h.PL b/ext/B/defsubs_h.PL index 8dfa3a5..78c82f2 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