scripts, dselsect/methods: Switch from `` to operator qx()

dselect/methods/Dselect/Ftp.pm

@@ -155,9 +155,9 @@ sub edit_config {
 sub add_site {
   my $pas = 1;
   my $user = 'anonymous';
-  my $email = `whoami`;
+  my $email = qx(whoami);
   chomp $email;
-  $email .= '@' . `cat /etc/mailname || dnsdomainname`;
+  $email .= '@' . qx(cat /etc/mailname || dnsdomainname);
   chomp $email;
   my $dir = '/debian';
 

dselect/methods/ftp/install.pl

@@ -208,7 +208,7 @@ my $dldir = $CONFIG{dldir};
 # md5sum
 sub md5sum($) {
     my $fn = shift;
-    my $m = `md5sum $fn`;
+    my $m = qx(md5sum $fn);
     $m = (split(' ', $m))[0];
     $md5sums{"$dldir/$fn"} = $m;
     return $m;
@@ -269,13 +269,13 @@ foreach my $pkg (keys(%pkgs)) {
     }
 }
 
-my $avsp = `df -Pk $dldir| awk '{ print \$4}' | tail -n 1`;
+my $avsp = qx(df -Pk $dldir| awk '{ print \$4}' | tail -n 1);
 chomp $avsp;
 
 print "\nApproximate total space required: ${totsize}k\n";
 print "Available space in $dldir: ${avsp}k\n";
 
-#$avsp = `df -k $::dldir| paste -s | awk '{ print \$11}'`;
+#$avsp = qx(df -k $::dldir| paste -s | awk '{ print \$11});
 #chomp $avsp;
 
 if($totsize == 0) {
@@ -560,7 +560,7 @@ if (yesno('y', "\nDo you want to install the files fetched")) {
     print "Installing files...\n";
     #Installing pre-dependent package before !
     my (@flds, $package, @filename, $r);
-    while (@flds = `dpkg --predep-package`, $? == 0) {
+    while (@flds = qx(dpkg --predep-package), $? == 0) {
       foreach my $field (@flds) {
         $field =~ s/\s*\n//;
         $package = $field if $field =~ s/^Package: //i;

dselect/methods/ftp/setup.pl

@@ -39,13 +39,13 @@ if ($option eq 'manual') {
 #print "vardir: $vardir, method: $method, option: $option\n";
 
 #Defaults
-my $arch=`dpkg --print-architecture`;
+my $arch = qx(dpkg --print-architecture);
 $arch='i386' if $?;
 chomp $arch;
 
-my $logname = `whoami`;
+my $logname = qx(whoami);
 chomp $logname;
-my $host = `cat /etc/mailname || dnsdomainname`;
+my $host = qx(cat /etc/mailname || dnsdomainname);
 chomp $host;
 
 $CONFIG{dldir} = 'debian';

dselect/methods/ftp/update.pl

@@ -52,7 +52,7 @@ if ($option eq 'manual') {
 
 #print "vardir: $vardir, method: $method, option: $option\n";
 
-my $arch=`dpkg --print-architecture`;
+my $arch = qx(dpkg --print-architecture);
 $arch='i386' if $?;
 chomp $arch;
 my $exit = 0;

scripts/Dpkg/Arch.pm

@@ -71,7 +71,7 @@ sub get_raw_build_arch()
     # dpkg-architecture itself, by avoiding computing the DEB_BUILD_
     # variables when they are not requested.
 
-    $build_arch = `dpkg --print-architecture`;
+    $build_arch = qx(dpkg --print-architecture);
     syserr('dpkg --print-architecture failed') if $? >> 8;
 
     chomp $build_arch;
@@ -90,7 +90,7 @@ sub get_build_arch()
     {
 	return $gcc_host_gnu_type if defined $gcc_host_gnu_type;
 
-	$gcc_host_gnu_type = `\${CC:-gcc} -dumpmachine`;
+	$gcc_host_gnu_type = qx(\${CC:-gcc} -dumpmachine);
 	if ($? >> 8) {
 	    $gcc_host_gnu_type = '';
 	} else {

scripts/Dpkg/Source/Package/V3/Git.pm

@@ -109,7 +109,7 @@ sub do_build {
     # equivalent to the ones git status finds, and remove any
     # ignored files from it.
     my @ignores = '--exclude-per-directory=.gitignore';
-    my $core_excludesfile = `git config --get core.excludesfile`;
+    my $core_excludesfile = qx(git config --get core.excludesfile);
     chomp $core_excludesfile;
     if (length $core_excludesfile && -e $core_excludesfile) {
         push @ignores, "--exclude-from=$core_excludesfile";