This is an automated email from the git hooks/post-receive script. guillem pushed a commit to branch main in repository dpkg.
View the commit online: https://git.dpkg.org/cgit/dpkg/dpkg.git/commit/?id=5678aa632dfd20ec83e1d0eacad75bb4a4ef44a2 commit 5678aa632dfd20ec83e1d0eacad75bb4a4ef44a2 Author: Guillem Jover <[email protected]> AuthorDate: Sun May 7 02:28:55 2023 +0200 Dpkg::Source::Quilt: Switch get_db_file() to be based off get_db_dir() Do not use get_db() with no argument as a means to get the db directory, instead reverse the implementation around and use get_db_dir() from get_db_file() instead, which makes more sense, and fixes a perl warning introduced when the code changed to properly unpack arguments. Fixes: commit 309123b9e76a44cd8e394d87295e2d244d7e354c --- scripts/Dpkg/Source/Quilt.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/scripts/Dpkg/Source/Quilt.pm b/scripts/Dpkg/Source/Quilt.pm index 2c99fe807..9c1163524 100644 --- a/scripts/Dpkg/Source/Quilt.pm +++ b/scripts/Dpkg/Source/Quilt.pm @@ -63,7 +63,7 @@ sub new { sub setup_db { my $self = shift; - my $db_dir = $self->get_db_file(); + my $db_dir = $self->get_db_dir(); if (not -d $db_dir) { mkdir $db_dir or syserr(g_('cannot mkdir %s'), $db_dir); } @@ -271,12 +271,13 @@ sub get_series_file { sub get_db_file { my ($self, $file) = @_; - return File::Spec->catfile($self->{dir}, '.pc', $file); + return File::Spec->catfile($self->get_db_dir(), $file); } sub get_db_dir { my $self = shift; - return $self->get_db_file(); + + return File::Spec->catfile($self->{dir}, '.pc'); } sub get_patch_file { -- Dpkg.Org's dpkg
