diff options
Diffstat (limited to 'scripts/dpkg-source.pl')
| -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) { |