scripts: Unify fork error string

scripts/Dpkg/Changelog/Parse.pm

@@ -131,7 +131,7 @@ sub changelog_parse {
 
     # Fork and call the parser
     my $pid = open(P, "-|");
-    syserr(_g("fork for %s"), $parser) unless defined $pid;
+    syserr(_g("cannot fork for %s"), $parser) unless defined $pid;
     if (not $pid) {
 	if ($changelogfile ne "-") {
 	    open(STDIN, "<", $changelogfile) or

scripts/Dpkg/IPC.pm

@@ -222,7 +222,7 @@ sub spawn {
     }
     # Fork and exec
     my $pid = fork();
-    syserr(_g("fork for %s"), "@prog") unless defined $pid;
+    syserr(_g("cannot fork for %s"), "@prog") unless defined $pid;
     if (not $pid) {
 	# Define environment variables
 	if ($opts{"env"}) {

scripts/dpkg-gencontrol.pl

@@ -286,7 +286,7 @@ if ($oppackage ne $sourcepackage || $verdiff) {
 }
 
 if (!defined($substvars->get('Installed-Size'))) {
-    defined(my $c = open(DU, "-|")) || syserr(_g("fork for du"));
+    defined(my $c = open(DU, "-|")) || syserr(_g("cannot fork for %s"), "du");
     if (!$c) {
         chdir("$packagebuilddir") ||
             syserr(_g("chdir for du to \`%s'"), $packagebuilddir);