diff options
| author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-08-07 13:30:08 +0000 |
|---|---|---|
| committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-08-07 13:30:08 +0000 |
| commit | 44cf9c6d2d274eac37502e835155f7e985f1b8e6 (patch) | |
| tree | 9576ba968924c5b9a55ba9e14f4f26184c62c7d4 /scripts/dpkg-source.pl | |
| parent | Adding upstream version 1.22.6. (diff) | |
| download | dpkg-44cf9c6d2d274eac37502e835155f7e985f1b8e6.tar.xz dpkg-44cf9c6d2d274eac37502e835155f7e985f1b8e6.zip | |
Adding upstream version 1.22.7.upstream/1.22.7
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to '')
| -rwxr-xr-x | scripts/dpkg-source.pl | 3 |
1 files changed, 1 insertions, 2 deletions
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) { |