|
Check-in Number:
|
4652 | |
| Date: |
2004-Jul-28 14:57:00 (local)
2004-Jul-28 12:57:00 (UTC) |
| User: | thl |
| Branch: | |
| Comment: |
scope and initialization of variables were wrong causing a infinite loop with perl >= 5.8.4, which optimizes away unnecessary assignments like "my $foo = undef" |
| Tickets: |
|
| Inspections: |
|
| Files: |
|
ossp-pkg/snmpdx/snmpdx.pl 1.10 -> 1.11
--- snmpdx.pl 2003/10/21 18:13:16 1.10
+++ snmpdx.pl 2004/07/28 12:57:00 1.11
@@ -724,13 +724,17 @@
# re-entry point for OID processing
my $oid_search = $oid_request;
+ my $oid_action;
+ my $oid_handled;
+ my $oid_handler;
+ my $oid_next;
RETRY:
# determine acted/handled OID
- my $oid_action = undef;
- my $oid_handled = undef;
- my $oid_handler = undef;
- my $oid_next = undef;
+ $oid_action = undef;
+ $oid_handled = undef;
+ $oid_handler = undef;
+ $oid_next = undef;
if ($cmd =~ m/^GET$/i) {
# search for explicitly handled OID
for (my $i = 0; defined($oidtable->[$i]); $i++) {
|
|
