[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
syntax error reported in maintain/generate_code_convert_data.pl
From: |
Gavin Smith |
Subject: |
syntax error reported in maintain/generate_code_convert_data.pl |
Date: |
Fri, 18 Oct 2024 21:49:00 +0100 |
The Solaris CI reports a syntax error:
/opt/csw/bin/perl ./../../maintain/generate_code_convert_data.pl \
< ./main/command_data.c \
./../Data/default_css_element_class_styles.csv \
./../Data/default_direction_strings.csv \
./../Data/default_special_unit_info.csv \
./../Data/html_style_commands_element.csv \
C ./main/conversion_data.c \
./main/conversion_data.h
syntax error at ./../../maintain/generate_code_convert_data.pl line 204, near
"continue"
syntax error at ./../../maintain/generate_code_convert_data.pl line 396, near
"continue"
Execution of ./../../maintain/generate_code_convert_data.pl aborted due to
compilation errors.
gmake[3]: Leaving directory
'/export/home/buildbot/slave/texinfo-solaris10-i386/build/tp/Texinfo/XS'
(from
https://buildfarm.opencsw.org/buildbot/builders/texinfo-solaris10-i386/builds/5926/steps/shell_2/logs/stdio)
The code in question looks like:
foreach my $header (@su_header) {
if ($header =~ /^([^ ]+) ([^ ]+)$/) {
my $spec = $2;
if ($spec ne 'string') {
die "Unknown special unit column spec $spec\n";
}
$su_type = $1;
push @su_ordered_translated_hashes, $su_type;
$su_header_indices{$su_type} = {$spec => $su_header_index};
} elsif ($header eq '') {
continue;
} else {
push @su_ordered_untranslated_hashes, $header;
$su_type = undef;
$su_header_indices{$header} = $su_header_index;
}
$su_header_index++;
}
I guess "continue;" should have been "next;"? I have never looked at
this Perl program before and don't know what it is for.
- syntax error reported in maintain/generate_code_convert_data.pl,
Gavin Smith <=