--- lib/MDAP/ChangeIP.pm	2007/11/16 15:54:20	48
+++ lib/MDAP/ChangeIP.pm	2007/11/16 16:21:45	49
@@ -1,8 +1,9 @@
-package CWMP::ChangeIP;
+package MDAP::ChangeIP;
 
 use strict;
 use warnings;
 
+use Module::Pluggable;
 use Data::Dump qw/dump/;
 
 my $debug = 0;
@@ -15,7 +16,7 @@
 };
 
 sub check {
-	my $h = shift;
+	my ( $self, $h ) = @_;
 	warn "## ",__PACKAGE__,"check(",dump($h),")" if $debug;
 
 	my $serial = $h->{'_PROD_SERIAL_NBR'} || die "no serial?";
@@ -23,7 +24,10 @@
 	my $ip_list = $h->{'IP_LIST'} || die "no IP_LIST";
 
 	if ( my $ip = $serial2ip->{$serial} ) {
-		return if $ip eq $ip_list;
+		if ( $ip eq $ip_list ) {
+			warn "OK ",__PACKAGE__," $serial $ip_list\n" if $verbose;
+			return;
+		}
 
 		warn "## change_ip $serial ",
 			$h->{'_VARIANT_FRIENDLY_NAME'}, " ",