Просмотр исходного кода

Dpkg::Dist::Files: Add new reset() method

Guillem Jover лет назад: 11
Родитель
Сommit
b9cec50938
1 измененных файлов с 6 добавлено и 0 удалено
  1. 6 0
      scripts/Dpkg/Dist/Files.pm

+ 6 - 0
scripts/Dpkg/Dist/Files.pm

@@ -41,6 +41,12 @@ sub new {
     return $self;
     return $self;
 }
 }
 
 
+sub reset {
+    my $self = shift;
+
+    $self->{files} = {};
+}
+
 sub parse_filename {
 sub parse_filename {
     my ($self, $fn) = @_;
     my ($self, $fn) = @_;