summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCraig A. Berry <craigberry@mac.com>2010-10-08 14:07:59 -0500
committerCraig A. Berry <craigberry@mac.com>2010-10-08 14:13:57 -0500
commit84efe3dfc6afbd8ea017ddcc4d5d213cc1a35c72 (patch)
tree3c8aa09e1e9b68d9b0bddedbd87cc96acb9f55b3
parent3a5b580ccfc4c8c7d52ecd8ccd1431eb99a05a0f (diff)
downloadperl-84efe3dfc6afbd8ea017ddcc4d5d213cc1a35c72.tar.gz
ExtUtils::XSSymSet can now let the compiler shorten symbols.
If the soon-to-be-implemented configuration option -Duseshortenedsymbols has been selected, bypass the home-grown symbol shortening traditionally done by xsubpp because the compiler's /NAMES=SHORTENED feature will be used instead. This is only relevant on VMS.
-rw-r--r--lib/ExtUtils/XSSymSet.pm20
1 files changed, 16 insertions, 4 deletions
diff --git a/lib/ExtUtils/XSSymSet.pm b/lib/ExtUtils/XSSymSet.pm
index 548c7ea553..7ef2df39b2 100644
--- a/lib/ExtUtils/XSSymSet.pm
+++ b/lib/ExtUtils/XSSymSet.pm
@@ -1,13 +1,17 @@
package ExtUtils::XSSymSet;
use strict;
+use Config;
use vars qw( $VERSION );
-$VERSION = '1.1';
+$VERSION = '1.2';
sub new {
my($pkg,$maxlen,$silent) = @_;
$maxlen ||= 31;
+ # Allow absurdly long symbols here if we've told the compiler to
+ # do the shortening for us.
+ $maxlen = 2048 if $Config{'useshortenedsymbols'};
$silent ||= 0;
my($obj) = { '__M@xLen' => $maxlen, '__S!lent' => $silent };
bless $obj, $pkg;
@@ -21,6 +25,8 @@ sub trimsym {
if (ref $self) { $maxlen ||= $self->{'__M@xLen'}; }
$maxlen ||= 31;
}
+ $maxlen = 2048 if $Config{'useshortenedsymbols'};
+
unless (defined $silent) {
if (ref $self) { $silent ||= $self->{'__S!lent'}; }
$silent ||= 0;
@@ -165,7 +171,10 @@ Creates an empty C<ExtUtils::XSSymset> set of symbols. This function may be
called as a static method or via an existing object. If C<$maxlen> or
C<$silent> are specified, they are used as the defaults for maximum
name length and warning behavior in future calls to addsym() or
-trimsym() via this object.
+trimsym() via this object. If the compiler has been instructed to do its
+own symbol shortening via C<$Config{'useshortenedsymbols'}>, a value of
+2048 is assumed for C<$maxlen> as a way of bypassing the shortening done by
+this module.
=item addsym($name[,$maxlen[,$silent]])
@@ -191,7 +200,10 @@ to 31. Unless C<$silent> is true, a warning is output if C<$name>
is altered in any way. This function may be called either as a
static method or via an existing object, but in the latter case no
check is made to insure that the resulting name is unique in the
-set of symbols.
+set of symbols. If the compiler has been instructed to do its
+own symbol shortening via C<$Config{'useshortenedsymbols'}>, a value
+of 2048 is assumed for C<$maxlen> as a way of bypassing the shortening
+done by this module.
=item delsym($name)
@@ -233,5 +245,5 @@ Charles Bailey E<lt>I<bailey@newman.upenn.edu>E<gt>
=head1 REVISION
-Last revised 14-Feb-1997, for Perl 5.004.
+Last revised 8-Oct-2010, for Perl 5.13.6.