Permalink
Fetching contributors…
Cannot retrieve contributors at this time
executable file 47 lines (38 sloc) 1.16 KB
#!/usr/bin/env perl
use strict;
use warnings;
use File::Temp 'tempfile';
my $infile = "src/ngx_http_xss_util.c";
my ($out, $outfile) = tempfile();
open my $in, $infile
or die "Cannot open $infile for reading: $!\n";
my $hits = 0;
while (<$in>) {
if (/ \b javascript_ (?: en_main | error | first_final ) \b /x)
{
#warn "HIT!";
$hits++;
next;
}
print $out $_;
}
close $in;
close $out;
if ($hits) {
my $cmd = "cp $outfile $infile";
system($cmd) == 0
or die "Cannot run command \"$cmd\": $!";
}
#die;
__END__
This script is to fix the following clang warnings when using Ragel 6.8/6.9/etc:
rc/ngx_http_xss_util.c:22:18: error: unused variable 'javascript_first_final' [-Werror,-Wunused-const-variable]
static const int javascript_first_final = 6;
^
src/ngx_http_xss_util.c:23:18: error: unused variable 'javascript_error' [-Werror,-Wunused-const-variable]
static const int javascript_error = 0;
^
src/ngx_http_xss_util.c:25:18: error: unused variable 'javascript_en_main' [-Werror,-Wunused-const-variable]
static const int javascript_en_main = 1;
^
3 errors generated.