From: Robert 'phaylon' Sedlacek <r.sedlacek@shadowcat.co.uk>
Date: Thu, 28 Jun 2012 21:41:29 +0000 (+0000)
Subject: cleanup json files, not yml ones
X-Git-Tag: v0.001_001~32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=536f6318972d4a093fd0b2c119388381b94c3111;p=scpubgit%2FSystem-Introspector.git

cleanup json files, not yml ones
---

diff --git a/lib/System/Introspector/State.pm b/lib/System/Introspector/State.pm
index 2d423b1..3ea7ad5 100644
--- 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";