h2xs and @EXPORT_OK

Currently, h2xs emits the line:

	use vars qw($VERSION @ISA @EXPORT);

Should @EXPORT_OK also be added to this list?

p5p-msgid: 199705092348.AA057881699@hpcc123.corp.hp.com

diff --git a/utils/h2xs.PL b/utils/h2xs.PL
index 6865809..5e22b70 100644 (file)
--- a/utils/h2xs.PL
+++ b/utils/h2xs.PL
@@ -395,7 +395,7 @@ END
 if( $opt_X || $opt_c || $opt_A ){
        # we won't have our own AUTOLOAD(), so won't have $AUTOLOAD
        print PM <<'END';
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 END
 }
 else{
@@ -403,7 +403,7 @@ else{
        # will want Carp.
        print PM <<'END';
 use Carp;
-use vars qw($VERSION @ISA @EXPORT $AUTOLOAD);
+use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 END
 }