The script was previously run with perl -w through the shebang command. Now that the script is executed through direct perl invocation the -w in the shebang command is ignored. This patch re-enables "use warnings" whatever way the script is invoked.
Unified · Split
| @@ -1,4 +1,4 @@ | |||
| 1 | #! /usr/bin/perl -w | 1 | #! /usr/bin/perl |
| 2 | 2 | ||
| 3 | # Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc. | 3 | # Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc. |
| 4 | 4 | ||
| @@ -23,6 +23,8 @@ · 18 unmodified lines | |||
| 23 | # markup to Perl POD format. It's intended to be used to extract | 23 | # markup to Perl POD format. It's intended to be used to extract |
| 24 | # something suitable for a manpage from a Texinfo document. | 24 | # something suitable for a manpage from a Texinfo document. |
| 25 | 25 | ||
| 26 | use warnings; | ||
| 27 | |||
| 26 | $output = 0; | 28 | $output = 0; |
| 27 | $skipping = 0; | 29 | $skipping = 0; |
| 28 | %sects = (); | 30 | %sects = (); |