This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
integrate cfgperl contents into mainline; resolve h2xs.PL conflict
authorGurusamy Sarathy <gsar@cpan.org>
Fri, 1 Oct 1999 22:33:02 +0000 (22:33 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Fri, 1 Oct 1999 22:33:02 +0000 (22:33 +0000)
by declaring new globals "our" (XXX this means h2xs generated code
won't run on earlier versions; a switch to generate compatible
source is needed)

p4raw-id: //depot/perl@4271

1  2 
utils/h2xs.PL

diff --cc utils/h2xs.PL
@@@ -411,6 -627,6 +627,7 @@@ warn "Writing $ext$modpname/$modfname.p
  print PM <<"END";
  package $module;
  
++require 5.005_62;
  use strict;
  END
  
@@@ -459,10 -677,20 +678,20 @@@ print PM<<"END"
  # Items to export into callers namespace by default. Note: do not export
  # names by default without a very good reason. Use EXPORT_OK instead.
  # Do not simply export all your public functions/methods/constants.
 -%EXPORT_TAGS = ( 'all' => [ qw(
+ # This allows declaration     use $module ':all';
+ # If you do not need this, moving things directly into \@EXPORT or \@EXPORT_OK
+ # will save memory.
 -\@EXPORT_OK = ( \@{ \$EXPORT_TAGS{'all'} } );
 -
 -\@EXPORT = (
++our %EXPORT_TAGS = ( 'all' => [ qw(
+       @exported_names
+ ) ] );
++our \@EXPORT_OK = ( \@{ \$EXPORT_TAGS{'all'} } );
 +our \@EXPORT = qw(
 +      @const_names
  );
 -\$VERSION = '$TEMPLATE_VERSION';
 +our \$VERSION = '$TEMPLATE_VERSION';
  
  END