From 181f5113b42dc68c705079ab45842d952c071b37 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Sat, 7 Jul 2001 00:25:14 +0100 Subject: [PATCH] h2xs Message-ID: <20010706232514.X59620@plum.flirble.org> p4raw-id: //depot/perl@11189 --- utils/h2xs.PL | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/utils/h2xs.PL b/utils/h2xs.PL index 6bf4be9..1d60d69 100644 --- a/utils/h2xs.PL +++ b/utils/h2xs.PL @@ -442,6 +442,7 @@ version: $H2XS_VERSION -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 @@ version: $H2XS_VERSION -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 @@ my $types = {}; 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"; } } -- 2.7.4