[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
|
From: |
Patrice Dumas |
|
Date: |
Sat, 13 Apr 2024 13:56:26 -0400 (EDT) |
branch: master
commit e420002cbe75220127a199ce16f609336b4bdab2
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Sat Apr 13 19:03:43 2024 +0200
Consistent spacing between open and open parenthesis.
---
Pod-Simple-Texinfo/pod2texi.pl | 6 +++---
doc/generate_html_doc_texi.pl | 2 +-
tp/Texinfo/Common.pm | 2 +-
tp/Texinfo/Convert/Converter.pm | 2 +-
tp/Texinfo/Convert/HTML.pm | 4 ++--
tp/Texinfo/Convert/IXIN.pm | 2 +-
tp/Texinfo/ParserNonXS.pm | 2 +-
tp/maintain/regenerate_C_options_info.pl | 6 +++---
tp/maintain/regenerate_commands_perl_info.pl | 2 +-
tp/maintain/regenerate_documentlanguages-iana.pl | 4 ++--
tp/maintain/regenerate_documentlanguages-loc.pl | 6 +++---
tp/maintain/setup_converters_code_tables.pl | 10 +++++-----
tp/t/test_utils.pl | 10 +++++-----
tp/texi2any.pl | 4 ++--
14 files changed, 31 insertions(+), 31 deletions(-)
diff --git a/Pod-Simple-Texinfo/pod2texi.pl b/Pod-Simple-Texinfo/pod2texi.pl
index 0b042383e8..9bbb9610a1 100755
--- a/Pod-Simple-Texinfo/pod2texi.pl
+++ b/Pod-Simple-Texinfo/pod2texi.pl
@@ -431,7 +431,7 @@ foreach my $file (@input_files) {
if ($outfile eq '-') {
$fh = *STDOUT;
} else {
- open (OUT, ">$outfile")
+ open(OUT, ">$outfile")
or die sprintf(__("%s: could not open %s for writing: %s\n"),
$real_command_name, $outfile, $!);
$fh = *OUT;
@@ -468,7 +468,7 @@ foreach my $file (@input_files) {
if ($section_nodes or $fill_sectioning_gaps) {
if ($debug > 4) {
# print to a file
- open (DBGFILE, ">$outfile-dbg")
+ open(DBGFILE, ">$outfile-dbg")
or die sprintf(__("%s: could not open %s: %s\n"),
$real_command_name, "$outfile-dbg", $!);
binmode(DBGFILE, ':encoding(utf-8)');
@@ -518,7 +518,7 @@ foreach my $file (@input_files) {
if ($base_level > 0) {
my $fh;
if ($output ne '-') {
- open (OUT, ">$output")
+ open(OUT, ">$output")
or die sprintf(__("%s: could not open %s for writing: %s\n"),
$real_command_name, $output, $!);
$fh = *OUT;
diff --git a/doc/generate_html_doc_texi.pl b/doc/generate_html_doc_texi.pl
index 10d97e050c..2d55f39658 100755
--- a/doc/generate_html_doc_texi.pl
+++ b/doc/generate_html_doc_texi.pl
@@ -73,7 +73,7 @@ my $html_command_args_spec_table_file = $ARGV[0];
die "Need a file for HTML arguments table\n"
if (!defined($html_command_args_spec_table_file));
-open (OUT, '>', $html_command_args_spec_table_file)
+open(OUT, '>', $html_command_args_spec_table_file)
or die "Open $html_command_args_spec_table_file: $!\n";
print OUT $result;
diff --git a/tp/Texinfo/Common.pm b/tp/Texinfo/Common.pm
index 16691d3108..975a23aaf4 100644
--- a/tp/Texinfo/Common.pm
+++ b/tp/Texinfo/Common.pm
@@ -1085,7 +1085,7 @@ sub output_files_open_out($$$;$$)
$overwritten_file = 1;
}
my $filehandle = do { local *FH };
- if (!open ($filehandle, '>', $file_path)) {
+ if (!open($filehandle, '>', $file_path)) {
my $error_message = $!;
return undef, $error_message, $overwritten_file;
}
diff --git a/tp/Texinfo/Convert/Converter.pm b/tp/Texinfo/Convert/Converter.pm
index 25b263a4b7..76f23ccfc7 100644
--- a/tp/Texinfo/Convert/Converter.pm
+++ b/tp/Texinfo/Convert/Converter.pm
@@ -1308,7 +1308,7 @@ sub txt_image_text($$$)
return undef, undef;
} else {
my $filehandle = do { local *FH };
- if (open ($filehandle, $txt_file)) {
+ if (open($filehandle, $txt_file)) {
my $encoding
= Texinfo::Common::element_associated_processing_encoding($element);
if (defined($encoding)) {
diff --git a/tp/Texinfo/Convert/HTML.pm b/tp/Texinfo/Convert/HTML.pm
index c3039061b7..538f00bd64 100644
--- a/tp/Texinfo/Convert/HTML.pm
+++ b/tp/Texinfo/Convert/HTML.pm
@@ -9310,7 +9310,7 @@ sub _prepare_css($)
__("CSS file %s not found"), $css_input_file_name));
next;
}
- unless (open (CSSFILE, $css_file_path)) {
+ unless (open(CSSFILE, $css_file_path)) {
my $css_file_name = $css_file_path;
my $encoding = $self->get_conf('COMMAND_LINE_ENCODING');
if (defined($encoding)) {
@@ -12367,7 +12367,7 @@ sub _do_js_files($$)
# create empty files for tests to keep results stable.
for my $f ('info.js', 'modernizr.js', 'info.css') {
my $filename = File::Spec->catfile($jsdir, $f);
- if (!open (FH, '>', $filename)) {
+ if (!open(FH, '>', $filename)) {
$self->converter_document_error(
sprintf(__("error on creating empty %s: %s"),
$filename, $!));
diff --git a/tp/Texinfo/Convert/IXIN.pm b/tp/Texinfo/Convert/IXIN.pm
index 749e7d4de1..df95b516ab 100644
--- a/tp/Texinfo/Convert/IXIN.pm
+++ b/tp/Texinfo/Convert/IXIN.pm
@@ -952,7 +952,7 @@ sub output_ixin($$)
my $file = $self->Texinfo::Common::locate_include_file($file_name);
if (defined($file)) {
my $filehandle = do { local *FH };
- if (open ($filehandle, $file)) {
+ if (open($filehandle, $file)) {
$blob_nr++;
if ($extension eq 'txt') {
my $encoding
diff --git a/tp/Texinfo/ParserNonXS.pm b/tp/Texinfo/ParserNonXS.pm
index b6ab1faff6..fea1001430 100644
--- a/tp/Texinfo/ParserNonXS.pm
+++ b/tp/Texinfo/ParserNonXS.pm
@@ -696,7 +696,7 @@ sub _new_text_input($$)
$text = Encode::encode('utf-8', $text);
# Could fail with error like
# Strings with code points over 0xFF may not be mapped into in-memory file
handles
- if (!open ($texthandle, '<', \$text)) {
+ if (!open($texthandle, '<', \$text)) {
my $error_message = $!;
# Better die now than later reading on a closed filehandle.
die "BUG? open on a reference failed: $error_message\n";
diff --git a/tp/maintain/regenerate_C_options_info.pl
b/tp/maintain/regenerate_C_options_info.pl
index 9ee0a033dc..b0d587b669 100755
--- a/tp/maintain/regenerate_C_options_info.pl
+++ b/tp/maintain/regenerate_C_options_info.pl
@@ -95,7 +95,7 @@ die "Need a header file\n" if (!defined($header_file));
my $get_file = $ARGV[3];
die "Need an XS code file\n" if (!defined($get_file));
-open (HEADER, '>', $header_file)
+open(HEADER, '>', $header_file)
or die "Open $header_file: $!\n";
print HEADER "/* Automatically generated from $0 */\n\n";
@@ -129,7 +129,7 @@ print HEADER "#endif\n";
close(HEADER);
-open (CODE, ">$code_file") or die "Open $code_file: $!\n";
+open(CODE, ">$code_file") or die "Open $code_file: $!\n";
print CODE "/* Automatically generated from $0 */\n\n";
print CODE '#include <config.h>'."\n\n";
@@ -259,7 +259,7 @@ print CODE "};\n\n";
close(CODE);
-open (GET, ">$get_file") or die "Open $get_file: $!\n";
+open(GET, ">$get_file") or die "Open $get_file: $!\n";
print GET "/* Automatically generated from $0 */\n\n";
print GET '
diff --git a/tp/maintain/regenerate_commands_perl_info.pl
b/tp/maintain/regenerate_commands_perl_info.pl
index 2432b9f4a4..e5b50551e0 100755
--- a/tp/maintain/regenerate_commands_perl_info.pl
+++ b/tp/maintain/regenerate_commands_perl_info.pl
@@ -104,7 +104,7 @@ while (<STDIN>) {
my $out_file = $ARGV[0];
die "Need an output file\n" if (!defined($out_file));
-open (OUT, ">$out_file") or die "Open $out_file: $!\n";
+open(OUT, ">$out_file") or die "Open $out_file: $!\n";
print OUT "# Automatically generated from $0\n\n";
diff --git a/tp/maintain/regenerate_documentlanguages-iana.pl
b/tp/maintain/regenerate_documentlanguages-iana.pl
index a995cae5d2..76dfc08a82 100755
--- a/tp/maintain/regenerate_documentlanguages-iana.pl
+++ b/tp/maintain/regenerate_documentlanguages-iana.pl
@@ -25,7 +25,7 @@ BEGIN
my $dir = 'maintain';
system ("cd $dir && wget -N
http://www.iana.org/assignments/language-subtag-registry";);
-open (TXT,"$dir/language-subtag-registry") or die "Open
$dir/language-subtag-registry: $!\n";
+open(TXT,"$dir/language-subtag-registry") or die "Open
$dir/language-subtag-registry: $!\n";
my $entry;
my @entries;
@@ -44,7 +44,7 @@ if (!defined($entry->{'Type'})) {
die "Type not defined for $entry ".join('|', keys(%$entry))."\n";
}
-open (OUT, ">Texinfo/Documentlanguages.pm") or die "Open
Texinfo/Documentlanguages.pm: $!\n";
+open(OUT, ">Texinfo/Documentlanguages.pm") or die "Open
Texinfo/Documentlanguages.pm: $!\n";
print OUT "# This file was automatically generated from $0\n\n";
diff --git a/tp/maintain/regenerate_documentlanguages-loc.pl
b/tp/maintain/regenerate_documentlanguages-loc.pl
index 196e50223a..6581faf333 100755
--- a/tp/maintain/regenerate_documentlanguages-loc.pl
+++ b/tp/maintain/regenerate_documentlanguages-loc.pl
@@ -34,7 +34,7 @@ system ("cd $dir && wget -N
https://www.loc.gov/standards/iso639-2/ISO-639-2_utf
# Use the country code project list instead
system ("cd $dir && wget -N
https://raw.githubusercontent.com/datasets/country-codes/master/data/country-codes.csv";);
-open (TXT, "$dir/ISO-639-2_utf-8.txt") or die "Open $dir/ISO-639-2_utf-8.txt:
$!\n";
+open(TXT, "$dir/ISO-639-2_utf-8.txt") or die "Open $dir/ISO-639-2_utf-8.txt:
$!\n";
binmode(TXT, ":utf8");
my @entries;
@@ -46,7 +46,7 @@ while (<TXT>) {
}
my $fh;
-open ($fh, "$dir/country-codes.csv") or die "Open $dir/country-codes.csv:
$!\n";
+open($fh, "$dir/country-codes.csv") or die "Open $dir/country-codes.csv: $!\n";
binmode($fh, ":utf8");
my $csv = Text::CSV->new();
@@ -67,7 +67,7 @@ while (my $row = $csv->getline ($fh)) {
}
}
-open (OUT, ">Texinfo/Documentlanguages.pm") or die "Open
Texinfo/Documentlanguages.pm: $!\n";
+open(OUT, ">Texinfo/Documentlanguages.pm") or die "Open
Texinfo/Documentlanguages.pm: $!\n";
print OUT "# This file was automatically generated from $0\n\n";
diff --git a/tp/maintain/setup_converters_code_tables.pl
b/tp/maintain/setup_converters_code_tables.pl
index 6b6c757d22..66a7845506 100755
--- a/tp/maintain/setup_converters_code_tables.pl
+++ b/tp/maintain/setup_converters_code_tables.pl
@@ -141,7 +141,7 @@ my %unicode_character_brace_no_arg_commands
my %unicode_map = %Texinfo::Convert::Unicode::unicode_map;
my %extra_unicode_map = %Texinfo::Convert::Unicode::extra_unicode_map;
-open (UNIC, '>', $unicode_file) or die "Open $unicode_file: $!\n";
+open(UNIC, '>', $unicode_file) or die "Open $unicode_file: $!\n";
print UNIC '#include "unicode.h"'."\n\n";
print UNIC "DIACRITIC_UNICODE unicode_diacritics[] = {\n";
@@ -201,7 +201,7 @@ my %command_structuring_level =
%Texinfo::Common::command_structuring_level;
my %level_to_structuring_command
= %Texinfo::Common::level_to_structuring_command;
-open (STRUC, '>', $structuring_file) or die "Open $structuring_file: $!\n";
+open(STRUC, '>', $structuring_file) or die "Open $structuring_file: $!\n";
print STRUC "#include \"command_ids.h\"\n\n";
print STRUC "int command_structuring_level[] = {\n";
@@ -241,7 +241,7 @@ print STRUC "};\n\n";
close (STRUC);
-open (SYMB, '>', $symbol_file) or die "Open $symbol_file: $!\n";
+open(SYMB, '>', $symbol_file) or die "Open $symbol_file: $!\n";
print SYMB "char *nobrace_symbol_text[] = {\n";
foreach my $command_name (@commands_order) {
@@ -261,7 +261,7 @@ print SYMB "};\n\n";
close(SYMB);
-open (TEXT, '>', $text_file) or die "Open $text_file: $!\n";
+open(TEXT, '>', $text_file) or die "Open $text_file: $!\n";
print TEXT "char *text_brace_no_arg_commands[] = {\n";
foreach my $command_name (@commands_order) {
@@ -297,7 +297,7 @@ print TEXT "};\n\n";
close(TEXT);
-open (NORM, '>', $normalization_file) or die "Open $normalization_file: $!\n";
+open(NORM, '>', $normalization_file) or die "Open $normalization_file: $!\n";
print NORM "char * command_normalization_text[] = {\n";
foreach my $command_name (@commands_order) {
diff --git a/tp/t/test_utils.pl b/tp/t/test_utils.pl
index d217c2a7f7..32700a76d2 100644
--- a/tp/t/test_utils.pl
+++ b/tp/t/test_utils.pl
@@ -1309,7 +1309,7 @@ sub test($$)
$output_files{$original_test_outfile} = [$format];
}
my $outfile = "$output_files_dir/$test_outfile";
- if (!open (OUTFILE, ">$outfile")) {
+ if (!open(OUTFILE, ">$outfile")) {
warn "ERROR: open $outfile: $!\n";
} else {
# output() or convert() called in convert_to_* calls set_document,
@@ -1346,7 +1346,7 @@ sub test($$)
if ($converted_errors{$format}) {
my $errors_file
= "$output_files_dir/$self->{'name'}/${test_name}_$format.err";
- if (!open (ERRFILE, ">$errors_file")) {
+ if (!open(ERRFILE, ">$errors_file")) {
warn "Open $errors_file: $!\n";
} else {
foreach my $error_message (@{$converted_errors{$format}}) {
@@ -1447,7 +1447,7 @@ sub test($$)
} else {
$out_file = $srcdir.$file;
}
- open (OUT, ">$out_file") or die "Open $out_file: $!\n";
+ open(OUT, ">$out_file") or die "Open $out_file: $!\n";
binmode (OUT, ":encoding(utf8)");
print OUT
'use vars qw(%result_texis %result_texts %result_trees %result_errors
'."\n".
@@ -1756,7 +1756,7 @@ sub output_texi_file($)
unless (-d $dir);
my $file = "${dir}$test_name.texi";
print STDERR "texi: $test_name\n" if ($arg_debug);
- open (OUTFILE, ">$file") or die ("Open $file: $!\n");
+ open(OUTFILE, ">$file") or die ("Open $file: $!\n");
my $encode = 1;
my $first_line = "\\input texinfo \@c -*-texinfo-*-";
@@ -1770,7 +1770,7 @@ sub output_texi_file($)
if ($test_options and $test_options->{'test_file'}) {
$encode = 0;
$test_file = $input_files_dir . $test_options->{'test_file'};
- if (open (INFILE, $test_file)) {
+ if (open(INFILE, $test_file)) {
my $holdTerminator = $/;
undef $/;
$test_text = <INFILE>;
diff --git a/tp/texi2any.pl b/tp/texi2any.pl
index 5991914d0d..ac04b714ff 100755
--- a/tp/texi2any.pl
+++ b/tp/texi2any.pl
@@ -233,7 +233,7 @@ if ($configured_version eq '@' . 'PACKAGE_VERSION@') {
# if not configured, and $hardcoded_version is set search for the version
# in configure.ac
if (defined($hardcoded_version)) {
- if (open (CONFIGURE,
+ if (open(CONFIGURE,
"< ".File::Spec->catfile($Texinfo::ModulePath::top_srcdir,
'configure.ac'))) {
while (<CONFIGURE>) {
@@ -284,7 +284,7 @@ my $texinfo_dtd_version = '@TEXINFO_DTD_VERSION@';
if ($texinfo_dtd_version eq '@' . 'TEXINFO_DTD_VERSION@') {
$texinfo_dtd_version = undef;
if (defined($hardcoded_version)) {
- if (open (CONFIGURE,
+ if (open(CONFIGURE,
"< ".File::Spec->catfile($Texinfo::ModulePath::top_srcdir,
'configure.ac'))) {
while (<CONFIGURE>) {