cleanup json files, not yml ones

diff --git a/lib/System/Introspector/State.pm b/lib/System/Introspector/State.pm
index 2d423b1..3ea7ad5 100644 (file)
--- a/lib/System/Introspector/State.pm
+++ b/lib/System/Introspector/State.pm
@@ -91,7 +91,7 @@ sub _cleanup {
     my ($self, $known_files) = @_;
     my %known = map { ($_ => 1) } @$known_files;
     my $data_dir = $self->storage->file(node => $self->node_path);
-    my @files = $self->storage->find_files('yml', node =>  $self->node_path);
+    my @files = $self->storage->find_files('json', node =>  $self->node_path);
     for my $file (@files) {
         next if $known{$file};
         print "Removing $file\n";