From 485fd0158e5c7ab2f5bf72f8f3f815dee57e8e44 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Mon, 8 Mar 2010 22:37:49 +0100 Subject: [PATCH] another fix for refresh and report errors --- lib/CWMP/Vendor.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lib/CWMP/Vendor.pm b/lib/CWMP/Vendor.pm index 438c321..9613528 100644 --- a/lib/CWMP/Vendor.pm +++ b/lib/CWMP/Vendor.pm @@ -83,13 +83,17 @@ sub vendor_config { if ( ! exists $stored->{$n} ) { warn "# $uid missing $n\n"; push @refresh, $n; - } elsif ( $vendor->{$n} ne $stored->{$n} && ! $tried->{$uid}->{$n}->{set} && $tried->{$uid}->{$n}->{set} ne $vendor->{$n} ) { + } elsif ( $vendor->{$n} ne $stored->{$n} + && ( ! $tried->{$uid}->{$n}->{set} || $tried->{$uid}->{$n}->{set} ne $vendor->{$n} ) + ) { $queue->enqueue( 'SetParameterValues', { $n => $vendor->{$n} } ); push @refresh, $n; $tried->{$uid}->{$n}->{set} = $vendor->{$n}; warn "# set $uid $n $stored->{$n} -> $vendor->{$n}\n"; + } elsif ( $tried->{$uid}->{$n}->{set} eq $vendor->{$n} && $vendor->{$n} ne $stored->{$n} ) { + warn "ERROR $uid $n $stored->{$n} != $vendor->{$n}\n"; } else { - warn "# ok $uid $n\n"; + warn "# ok $uid $n = $stored->{$n}\n"; } } -- 2.20.1