This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
devel/mkapidoc.sh: Add strict, warnings
authorKarl Williamson <khw@cpan.org>
Wed, 14 Aug 2019 23:39:10 +0000 (17:39 -0600)
committerNicolas R <atoomic@cpan.org>
Fri, 27 Sep 2019 22:39:28 +0000 (16:39 -0600)
(cherry picked from commit 5b5e4dc3f866089d8a51f580d4ecb554452a816a)
Signed-off-by: Nicolas R <atoomic@cpan.org>
dist/Devel-PPPort/devel/mkapidoc.sh

index e676eb6..9d1e1ba 100755 (executable)
@@ -82,7 +82,11 @@ EOF
   | sort                                                                    \
   | uniq                                                                    \
   | sort -f -t'|' -k3                                                       \
-  | perl -e '$f=pop;
+  | perl -e 'use warnings;
+             use strict;
+             my $f=pop;
+             my %h;
+
              # Populate %h with the embed.fnc entry names
              open(F,$f) || die "$f:$!";
              while (<F>) {                      # In embed.fnc,