Blame devscripts_ipc-run.patch

657eda
diff -rupN devscripts-2.15.9/scripts/licensecheck.pl devscripts-2.15.9-new/scripts/licensecheck.pl
657eda
--- devscripts-2.15.9/scripts/licensecheck.pl	2015-10-06 03:00:34.000000000 +0200
657eda
+++ devscripts-2.15.9-new/scripts/licensecheck.pl	2015-10-09 12:51:12.425215534 +0200
657eda
@@ -157,7 +157,7 @@ use warnings;
657eda
 use warnings    qw< FATAL  utf8     >;
657eda
 use Encode qw/decode/;
657eda
 
657eda
-use Dpkg::IPC qw(spawn);
657eda
+use IPC::Run qw(run);
657eda
 use Getopt::Long qw(:config gnu_getopt);
657eda
 use File::Basename;
657eda
 
657eda
@@ -337,11 +337,7 @@ while (@files) {
657eda
 
657eda
     # Encode::Guess does not work well, use good old file command to get file encoding
657eda
     my $mime;
657eda
-    spawn(exec => ['file', '--brief', '--mime', '--dereference', '--', $file],
657eda
-          to_string => \$mime,
657eda
-          error_to_file => '/dev/null',
657eda
-          nocheck => 1,
657eda
-          wait_child => 1);
657eda
+    run [qw(file --brief --mime --dereference), $file], \undef, \$mime;
657eda
     my $charset ;
657eda
     if ($mime =~ m/; charset=((?!binary)(?!unknown)[\w-]+)/) {
657eda
 	$charset = $1;