X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;ds=sidebyside;f=lib%2FCWMP%2FSession.pm;h=aee14183aae47929312f14a8ac99239005338f47;hb=83b1af90b387c3cedb13d6a87712042c23365d16;hp=263794bcc39a541bc2a56ab165539d21b19a75b8;hpb=edfd1a00b150b9255d8190d1f0f3272b81e5b1e1;p=perl-cwmp.git

diff --git a/lib/CWMP/Session.pm b/lib/CWMP/Session.pm
index 263794b..aee1418 100644
--- a/lib/CWMP/Session.pm
+++ b/lib/CWMP/Session.pm
@@ -102,7 +102,7 @@ sub process_request {
 	warn "<<<< ", $sock->peerhost, " [" . localtime() . "] ", $r->method, " ", $r->uri, " $size bytes\n";
 
 	if ( $self->debug > 2 ) {
-		my $file = sprintf("dump/%04d.request", $dump_nr);
+		my $file = sprintf("dump/%04d.request", $dump_nr++);
 		write_file( $file, $r->as_string );
 		warn "### request dump: $file\n";
 	}