develooper Front page | perl.perl5.porters | Postings from July 2001

[PATCH] h2xs

Thread Next
From:
Nicholas Clark
Date:
July 6, 2001 15:25
Subject:
[PATCH] h2xs
Message ID:
20010706232514.X59620@plum.flirble.org
Some fool made a change to ExtUtils::Constant that stopped h2xs working. :-(
[Hmm. Without regression tests for h2xs and friends, how are we going to
make Schwern poorer^W^WYAS richer?]

Patch also moves -b and -t in the help output into their correct alphabetical
positions.

I'd like to add a switch to make the generated AUTOLOAD function not fall
back to AutoLoader, but I can't work out which letter to use.

 B DE GHIJKL N  QRSTUV XYZ
    e g ij l    qr  u w yz

are free, but none seem that suitable for "no AutoLoader;"
[I didn't think N was great, as "no" is lowercase.]

Nicholas Clark

--- utils/h2xs.PL.orig	Fri Jun 22 14:18:36 2001
+++ utils/h2xs.PL	Fri Jul  6 22:50:41 2001
@@ -442,6 +442,7 @@
     -P   Omit the stub POD section.
     -X   Omit the XS portion (implies both -c and -f).
     -a   Generate get/set accessors for struct and union members (used with -x).
+    -b   Specify a perl version to be backwards compatibile with
     -c   Omit the constant() function and specialised AUTOLOAD from the XS file.
     -d   Turn on debugging messages.
     -f   Force creation of the extension even if the C header does not exist.
@@ -452,10 +453,9 @@
     -o   Regular expression for \"opaque\" types.
     -p   Specify a prefix which should be removed from the Perl function names.
     -s   Create subroutines for specified macros.
+    -t   Default type for autoloaded constants
     -v   Specify a version number for this extension.
     -x   Autogenerate XSUBs using C::Scan.
-    -b   Specify a perl version to be backwards compatibile with
-    -t   Default type for autoloaded constants
 extra_libraries
          are any libraries that might be needed for loading the
          extension, e.g. -lm would try to link in the math library.
@@ -1150,7 +1150,8 @@
 
 if( ! $opt_c ) {
   print XS constant_types(), "\n";
-  foreach (C_constant (undef, $opt_t, $types, undef, undef, @const_names)) {
+  foreach (C_constant ($module, undef, $opt_t, $types, undef, undef,
+           @const_names)) {
     print XS $_, "\n";
   }
 }

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About