- my $out = qx/dpkg-source -sn -x "$dscname" 2>&1/;
- my ($dir) = ($out =~ /(\S+)$/mo);
-
- add_log( $log, "dpkg-source output: ", $out );
-
-#Bug#246802
-# system("dpkg-source", "-x", $dscname ) == 0
-# or do {
-# do_warning( "couldn't unpack $dscname" );
-# add_log( $log, "couldn't unpack $dscname" );
-# return;
-# };
+ system("dpkg-source", "-sn", "-x", $dscname, "$pkgname+source" ) == 0
+ or do {
+ do_warning( "couldn't unpack $dscname: $!" );
+ add_log( $log, "couldn't unpack $dscname: $!" );
+ return;
+ };