r290@brr: dpavlin | 2007-11-26 01:34:51 +0100

[perl-cwmp.git] / bin / dump2test.pl

diff --git a/bin/dump2test.pl b/bin/dump2test.pl
index e1c7498..c8024ea 100755 (executable)
--- a/bin/dump2test.pl
+++ b/bin/dump2test.pl
@@ -71,8 +71,11 @@ warn "dumping new tests into $test_path\n";
 foreach my $name ( keys %$requests ) {
        my $from = $requests->{$name};
        my $to   = "$test_path/$name";
+       if ( -e $to ) {
+               warn "SKIP $to\n";
+               next;
+       }
        warn "## $from -> $to\n";
-       next if -e $to;
        my $xml = read_file( $from );
        write_file( $to, $xml );
        DumpFile( "$to.yml", xml2state( $xml ) );