[ViewVC] Diff of: cvs/Net-SNMP-XS/XS.pm

Comparing Net-SNMP-XS/XS.pm (file contents):
Revision 1.9 by root, Sun Apr 12 00:48:39 2009 UTC vs.
Revision 1.17 by root, Fri Dec 21 11:22:37 2018 UTC

 =cut
 package Net::SNMP::XS;
-use strict qw(vars subs);
+use common::sense;
-no warnings;
-use Guard;
 use Net::SNMP ();
 use Net::SNMP::PDU ();
 use Net::SNMP::Message ();
 use Net::SNMP::MessageProcessing ();
 our $VERSION;
-our $old_prepare;
 BEGIN {
-   $VERSION = '0.03';
+   $VERSION = 1.33;
-   $old_prepare = \&Net::SNMP::MessageProcessing::prepare_data_elements;
+   # this overrides many methods inside Net::SNMP and it's submodules
-   # this overrides many methods inside
    require XSLoader;
    XSLoader::load Net::SNMP::XS, $VERSION;
-}
-sub Net::SNMP::MessageProcessing::prepare_data_elements {
-   my ($self, $msg) = @_;
-   set_msg $msg, $msg->{_buffer};
-   scope_guard \&clr_msg;
-   &$old_prepare
 }
 package Net::SNMP::Message;
 Net::SNMP::XS::set_type INTEGER          , \&_process_integer32;
 Net::SNMP::XS::set_type SNMPV2_TRAP      , \&_process_v2_trap;
 Net::SNMP::XS::set_type REPORT           , \&_process_report;
 package Net::SNMP::PDU;
-# var_bind_list hardcodes oid_lext_sort. *sigh*
+# var_bind_list hardcodes oid_lex_sort. *sigh*
 # we copy it 1:1, except for using oid_lex_sort.
 sub var_bind_list
 {
    my ($this, $vbl, $types) = @_;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines