mirror of
https://github.com/curl/curl.git
synced 2026-04-11 12:01:42 +08:00
650b33a3db
Instead of stdin. To simplify the command-line, and allow using a safe and portable `system()` call from `badwords-all`. Ref: https://perldoc.perl.org/functions/system Closes #20970
15 lines
345 B
Perl
Executable File
15 lines
345 B
Perl
Executable File
#!/usr/bin/env perl
|
|
# Copyright (C) Daniel Stenberg, <daniel@haxx.se>, et al.
|
|
#
|
|
# SPDX-License-Identifier: curl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use File::Basename;
|
|
|
|
chdir dirname(__FILE__) . '/..';
|
|
|
|
exit system('scripts/badwords', ('scripts/badwords.txt',
|
|
'**.md', 'projects/OS400/README.OS400', 'src', 'lib', 'include', 'docs/examples')) >> 8;
|