Miscellany

Index: perl/agent/test.pl
===================================================================
RCS file: /cvsroot/net-snmp/net-snmp/perl/agent/test.pl,v
retrieving revision 5.5
diff -u -r5.5 test.pl
--- perl/agent/test.pl  25 Sep 2006 15:48:30 -0000      5.5
+++ perl/agent/test.pl  13 Nov 2006 22:50:19 -0000
@@ -97,11 +97,11 @@
   print "got something\n";
 }

-use Data::Dumper;
+#use Data::Dumper;
 sub testsub {
     print STDERR "in perl handler sub\n";
     print STDERR "  args: ", join(", ", @_), "\n";
-    print STDERR "  dumped args: ", Dumper(@_);
+    #print STDERR "  dumped args: ", Dumper(@_);
     $oid= $_[3]->getOID();
     print STDERR "  request oid: ", ref($oid), " -> ", $oid, "\n";
     print STDERR "  mode: ", $_[2]->getMode(),"\n";