Dpkg::Source::Quilt: Refactor write_patch_list()

1 files changed, 11 insertions, 6 deletions

diff --git a/scripts/Dpkg/Source/Quilt.pm b/scripts/Dpkg/Source/Quilt.pm
index 3f902a88a..2b87bef79 100644
--- a/scripts/Dpkg/Source/Quilt.pm
+++ b/scripts/Dpkg/Source/Quilt.pm
@@ -90,12 +90,7 @@ sub write_db {
 
     $self->setup_db();
     my $pc_applied = $self->get_db_file('applied-patches');
-    open(my $applied_fh, '>', $pc_applied) or
-        syserr(_g('cannot write %s'), $pc_applied);
-    foreach my $patch (@{$self->{applied_patches}}) {
-        print { $applied_fh } "$patch\n";
-    }
-    close($applied_fh);
+    $self->write_patch_list($pc_applied, $self->{applied_patches});
 }
 
 sub load_series {
@@ -277,6 +272,16 @@ sub read_patch_list {
     return @patches;
 }
 
+sub write_patch_list {
+    my ($self, $series, $patches) = @_;
+
+    open my $series_fh, '>', $series or syserr(_g('cannot write %s'), $series);
+    foreach my $patch (@{$patches}) {
+        print { $series_fh } "$patch\n";
+    }
+    close $series_fh;
+}
+
 sub restore_quilt_backup_files {
     my ($self, $patch, %opts) = @_;
     my $patch_dir = $self->get_db_file($patch);