1
$ autoscan
Unescaped left brace in regex is deprecated here (and will be fatal in Perl
5.30), passed through in regex; marked by <-- HERE in m/\${ <-- HERE [^\}]*}/
at /usr/bin/autoscan-2.69 line 361.
2
/usr/bin/autoscan-2.69
348 # scan_sh_file($SHELL-SCRIPT-NAME)
349 # --------------------------------
350 sub scan_sh_file ($)
351 {
352 my ($file_name) = @_;
353 push @shfiles, $File::Find::name;
354
355 my $file = new Autom4te::XFile "< " . open_quote ($file_name);
356
357 while ($_ = $file->getline)
358 {
359 # Strip out comments and variable references.
360 s/#.*//;
361 s/\${[^\}]*}//g;
362 s/@[^@]*@//g;
363
364 # Tokens in the code.
365 while (s/\b([a-zA-Z_]\w*)\b/ /)
366 {
367 used ('program', $1);
368 }
369 }
370
371 $file->close;
372 }
line 361 : s/\${[^\}]*}//g; shoule be:
s/\$\{[^\}]*\}//g;
my autoonf version is 2.69
$ autoscan --version
Unescaped left brace in regex is deprecated here (and will be fatal in Perl
5.30), passed through in regex; marked by <-- HERE in m/\${ <-- HERE [^\}]*}/
at /usr/bin/autoscan-2.69 line 361.
autoscan (GNU Autoconf) 2.69
Copyright (C) 2012 Free Software Foundation, Inc.
License GPLv3+/Autoconf: GNU GPL version 3 or later
<http://gnu.org/licenses/gpl.html>, <http://gnu.org/licenses/exceptions.html>
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.
Written by David J. MacKenzie and Akim Demaille.
autoscan-2.69
Description: Binary data
