perl_exe: use missing

Author: scivision

+stdlib/+perl/get_uid.m

@@ -8,7 +8,7 @@
 end
 
 exe = stdlib.perl_exe();
-if stdlib.strempty(exe)
+if ismissing(exe)
   return
 end
 

+stdlib/+perl/is_admin.m

@@ -11,14 +11,14 @@
 y = missing;
 
 exe = stdlib.perl_exe();
-if stdlib.strempty(exe)
+if ismissing(exe)
   return
 end
 
 cmd = sprintf('"%s" -e "%s"', exe, c);
 
 [s, m] = system(cmd);
 
-y = s == 0 && m == "1";
+y = s == 0 && m(1) == '1';
 
 end

+stdlib/+perl/samepath.m

@@ -4,7 +4,7 @@
 
 try %#ok<TRYNC>
   exe = stdlib.perl_exe();
-  if stdlib.strempty(exe)
+  if ismissing(exe)
     return
   end
 

+stdlib/has_perl.m

@@ -2,8 +2,7 @@
 
 function y = has_perl()
 
-y = ~isempty(stdlib.perl_version());
+v = stdlib.perl_version();
+y = ~isempty(v) && ~ismissing(v);
 
 end
-
-%!assert (islogical(stdlib.has_perl()))

+stdlib/perl_exe.m

@@ -12,7 +12,7 @@
 
 ps = [fileparts(mfilename('fullpath')), '/private/executable.pl'];
 
-exe = '';
+exe = missing;
 
 try
   [r, s] = perl(ps);
@@ -29,5 +29,3 @@
 end
 
 end
-
-%!assert (isfile(stdlib.perl_exe()))

+stdlib/perl_version.m

@@ -16,11 +16,11 @@
   return
 end
 
-v = [];
+v = missing;
 
 exe = stdlib.perl_exe();
 
-if ~stdlib.strempty(exe)
+if ~ismissing(exe)
   cmd = sprintf('"%s" -e %s', exe, stdlib.perl.perl2cmd('print $^V'));
 
   [s, r] = system(cmd);
@@ -35,5 +35,3 @@
 perlv_cached = true;
 
 end
-
-%!assert (~isempty(stdlib.perl_version()))

example/+perl/device.m

@@ -5,7 +5,7 @@
 i = missing;
 
 exe = stdlib.perl_exe();
-if stdlib.strempty(exe)
+if ismissing(exe)
   return
 end
 

example/+perl/inode.m

@@ -6,7 +6,7 @@
 i = missing;
 
 exe = stdlib.perl_exe();
-if stdlib.strempty(exe)
+if ismissing(exe)
   return
 end
 

example/+perl/normalize.m

@@ -8,7 +8,7 @@
 n = string.empty;
 
 exe = stdlib.perl_exe();
-if stdlib.strempty(exe)
+if ismissing(exe)
   return
 end
 

test/TestPlatform.m

@@ -47,7 +47,8 @@ function test_toolbox_used(tc)
 
 methods (Test, TestTags={'R2018a'})
 function test_perl(tc)
-tc.verifyNotEmpty(stdlib.perl_exe())
+tc.verifyClass(stdlib.perl_exe(), 'char')
+tc.verifyClass(stdlib.perl_version(), 'double')
 tc.verifyNotEmpty(stdlib.perl_version())
 tc.verifyTrue(stdlib.has_perl(), 'Matlab docs indicate that Perl should always be available')
 end