From b4f7d8b1566e3220d0e9004499ef9c257e079c57 Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Wed, 7 Aug 2024 15:30:11 +0200
Subject: Merging upstream version 1.22.7.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
---
 scripts/dpkg-source.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'scripts/dpkg-source.pl')

diff --git a/scripts/dpkg-source.pl b/scripts/dpkg-source.pl
index c27a954..3f14b10 100755
--- a/scripts/dpkg-source.pl
+++ b/scripts/dpkg-source.pl
@@ -469,8 +469,7 @@ if ($options{opmode} =~ /^(build|print-format|(before|after)-build|commit)$/) {
     $srcpkg->parse_cmdline_options(@cmdline_options);
 
     # Decide where to unpack
-    my $newdirectory = $srcpkg->get_basename();
-    $newdirectory =~ s/_/-/g;
+    my $newdirectory = $srcpkg->get_basedirname();
     if (@ARGV) {
 	$newdirectory = File::Spec->catdir(shift(@ARGV));
 	if (-e $newdirectory) {
-- 
cgit v1.2.3