perl backend functions: check that exe exists

Author: scivision

+stdlib/+dotnet/disk_available.m

@@ -2,7 +2,7 @@
 
 function i = disk_available(file)
 
-i = uint64([]);
+i = uint64.empty;
 if ~stdlib.exists(file)
   return
 end

+stdlib/+dotnet/disk_capacity.m

@@ -2,7 +2,7 @@
 
 function i = disk_capacity(file)
 
-i = uint64([]);
+i = uint64.empty;
 if ~stdlib.exists(file)
   return
 end

+stdlib/+java/device.m

@@ -1,6 +1,6 @@
 function i = device(file)
 
-i = uint64([]);
+i = uint64.empty;
 
 if stdlib.strempty(file)
   return

+stdlib/+java/inode.m

@@ -1,6 +1,6 @@
 function i = inode(file)
 
-i = uint64([]);
+i = uint64.empty;
 
 if stdlib.strempty(file)
   return

+stdlib/+perl/device.m

@@ -9,7 +9,14 @@
   k = sprintf('''%s''', c);
 end
 
-cmd = sprintf('"%s" -e %s "%s"', stdlib.perl_exe(), k, file);
+r = uint64.empty;
+
+exe = stdlib.perl_exe();
+if stdlib.strempty(exe)
+  return
+end
+
+cmd = sprintf('"%s" -e %s "%s"', exe, k, file);
 
 [s, r] = system(cmd);
 if s == 0

+stdlib/+perl/get_uid.m

@@ -7,7 +7,12 @@
   return
 end
 
-cmd = sprintf('"%s" -e "print $<"', stdlib.perl_exe());
+exe = stdlib.perl_exe();
+if stdlib.strempty(exe)
+  return
+end
+
+cmd = sprintf('"%s" -e "print $<"', exe);
 
 [s, r] = system(cmd);
 if s == 0

+stdlib/+perl/inode.m

@@ -7,7 +7,14 @@
   k = sprintf('''%s''', c);
 end
 
-cmd = sprintf('"%s" -e %s "%s"', stdlib.perl_exe(), k, file);
+r = uint64.empty;
+
+exe = stdlib.perl_exe();
+if stdlib.strempty(exe)
+  return
+end
+
+cmd = sprintf('"%s" -e %s "%s"', exe, k, file);
 
 [s, r] = system(cmd);
 if s == 0

+stdlib/+perl/is_admin.m

@@ -8,7 +8,14 @@
   c = 'print $< == 0 ? 1 : 0';
 end
 
-cmd = sprintf('"%s" -e "%s"', stdlib.perl_exe(), c);
+y = logical.empty;
+
+exe = stdlib.perl_exe();
+if stdlib.strempty(exe)
+  return
+end
+
+cmd = sprintf('"%s" -e "%s"', exe, c);
 
 [s, m] = system(cmd);
 

+stdlib/+perl/samepath.m

@@ -7,7 +7,14 @@
   k = sprintf('''%s''', c);
 end
 
-cmd = sprintf('"%s" -e %s "%s" "%s"', stdlib.perl_exe(), k, file1, file2);
+r = logical.empty;
+
+exe = stdlib.perl_exe();
+if stdlib.strempty(exe)
+  return
+end
+
+cmd = sprintf('"%s" -e %s "%s" "%s"', exe, k, file1, file2);
 
 s = system(cmd);