1 files changed, 5 insertions, 0 deletions
diff --git a/lib/App/Dthumb/Data.pm.PL b/lib/App/Dthumb/Data.pm.PL
index c430c0a..0e602ef 100644
--- a/lib/App/Dthumb/Data.pm.PL
+++ b/lib/App/Dthumb/Data.pm.PL
@@ -59,6 +59,11 @@ sub set_vars {
 	$self->{replace} = \%vars;
 }
 
+sub list_archived {
+	my ($self) = @_;
+	return grep { ! /\.dthumb$/ } $self->section_data_names();
+}
+
 sub get {
 	my ($self, $name) = @_;
 	my $data = $self->section_data($name);