Преглед изворни кода

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

Guillem Jover пре 11 година
родитељ
комит
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;
 }
 
+sub reset {
+    my $self = shift;
+
+    $self->{files} = {};
+}
+
 sub parse_filename {
     my ($self, $fn) = @_;