diff options
| -rw-r--r-- | lib/ExtUtils/XSSymSet.pm | 20 |
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. |