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;
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;
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]])
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)
=head1 REVISION
-Last revised 14-Feb-1997, for Perl 5.004.
+Last revised 8-Oct-2010, for Perl 5.13.6.