diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2004-02-17 21:52:08 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-02-17 21:52:08 +0000 |
| commit | 76df5e8f6f9a368c3b6f3dcca177104be7f3fc8c (patch) | |
| tree | 4aee5575154e7b0037b35ce06a93486173c9f9eb /utils/h2xs.PL | |
| parent | 9b11ae5efd28ae7e3371a10346290d0fad9432ad (diff) | |
| download | perl-76df5e8f6f9a368c3b6f3dcca177104be7f3fc8c.tar.gz | |
remove C<my $x if foo> construct from core modules
p4raw-id: //depot/perl@22322
Diffstat (limited to 'utils/h2xs.PL')
| -rw-r--r-- | utils/h2xs.PL | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/utils/h2xs.PL b/utils/h2xs.PL index 0f47395f04..5d27e67ec0 100644 --- a/utils/h2xs.PL +++ b/utils/h2xs.PL @@ -701,7 +701,8 @@ $opt_c = $opt_f = 1 if $opt_X; $opt_t ||= 'IV'; -my %const_xsub = map { $_,1 } split(/,+/, $opt_s) if $opt_s; +my %const_xsub; +%const_xsub = map { $_,1 } split(/,+/, $opt_s) if $opt_s; my $extralibs = ''; @@ -1307,7 +1308,8 @@ if ($opt_x && $opt_a) { my $licence_hash = $licence; $licence_hash =~ s/^/#/gm; -my $pod = <<"END" unless $opt_P; +my $pod; +$pod = <<"END" unless $opt_P; ## Below is stub documentation for your module. You'd better edit it! # #=head1 NAME |