ASN.pm (net-snmp-5.9.2) | : | ASN.pm (net-snmp-5.9.3) | ||
---|---|---|---|---|
skipping to change at line 69 | skipping to change at line 69 | |||
ASN_NULL | ASN_NULL | |||
ASN_OBJECT_ID | ASN_OBJECT_ID | |||
ASN_OCTET_STR | ASN_OCTET_STR | |||
ASN_OPAQUE | ASN_OPAQUE | |||
ASN_SEQUENCE | ASN_SEQUENCE | |||
ASN_SET | ASN_SET | |||
ASN_TIMETICKS | ASN_TIMETICKS | |||
ASN_UNSIGNED | ASN_UNSIGNED | |||
ASN_UNSIGNED64 | ASN_UNSIGNED64 | |||
); | ); | |||
$VERSION = '5.0902'; | $VERSION = '5.0903'; | |||
sub AUTOLOAD { | sub AUTOLOAD { | |||
# This AUTOLOAD is used to 'autoload' constants from the constant() | # This AUTOLOAD is used to 'autoload' constants from the constant() | |||
# XS function. If a constant is not found then control is passed | # XS function. If a constant is not found then control is passed | |||
# to the AUTOLOAD in AutoLoader. | # to the AUTOLOAD in AutoLoader. | |||
my $constname; | my $constname; | |||
($constname = $AUTOLOAD) =~ s/.*:://; | ($constname = $AUTOLOAD) =~ s/.*:://; | |||
croak "& not defined" if $constname eq 'constant'; | croak "& not defined" if $constname eq 'constant'; | |||
my $val; | my $val; | |||
End of changes. 1 change blocks. | ||||
1 lines changed or deleted | 1 lines changed or added |