double EXPORT_OK in h2xs

To: perl5-porters@perl.org
Message-Id: <200002241324.NAA05900@crypt.compulink.co.uk>

p4raw-id: //depot/cfgperl@5236

diff --git a/utils/h2xs.PL b/utils/h2xs.PL
index 76e2d65..c47418e 100644 (file)
--- a/utils/h2xs.PL
+++ b/utils/h2xs.PL
@@ -634,18 +634,11 @@ require 5.005_62;
 use strict;
 END
 
-if( $opt_X || $opt_c || $opt_A ){
-       # we won't have our own AUTOLOAD(), so won't have $AUTOLOAD
-       print PM <<'END';
-our @EXPORT_OK;
-END
-}
-else{
+unless( $opt_X || $opt_c || $opt_A ){
        # we'll have an AUTOLOAD(), and it will have $AUTOLOAD and
        # will want Carp.
        print PM <<'END';
 use Carp;
-our @EXPORT_OK;
 END
 }