OID.pm (net-snmp-5.9.2) | : | OID.pm (net-snmp-5.9.3) | ||
---|---|---|---|---|
skipping to change at line 95 | skipping to change at line 95 | |||
snmp_oid_compare | snmp_oid_compare | |||
compare | compare | |||
) ] ); | ) ] ); | |||
@EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); | @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); | |||
@EXPORT = qw( | @EXPORT = qw( | |||
snmp_oid_compare | snmp_oid_compare | |||
compare | compare | |||
); | ); | |||
$VERSION = '5.0902'; | $VERSION = '5.0903'; | |||
sub new { | sub new { | |||
my $type = shift; | my $type = shift; | |||
my $arg = shift; | my $arg = shift; | |||
if (!$arg) { | if (!$arg) { | |||
$arg = $type; | $arg = $type; | |||
$type = "NetSNMP::OID"; | $type = "NetSNMP::OID"; | |||
} | } | |||
SNMP::init_snmp("perl"); | SNMP::init_snmp("perl"); | |||
my $ptr = NetSNMP::OID::newptr($arg); | my $ptr = NetSNMP::OID::newptr($arg); | |||
End of changes. 1 change blocks. | ||||
1 lines changed or deleted | 1 lines changed or added |