Mercurial > octave-nkf

comparison scripts/miscellaneous/perl.m @ 10549:95c3e38098bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Untabify .m scripts
author Rik <code@nomad.inbox5.com>
date Fri, 23 Apr 2010 11:28:50 -0700
parents 16f53d29049f
children 3140cb7a05a1
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
32 ## supplied, so there is no need to check for it, or provide an 32 ## supplied, so there is no need to check for it, or provide an
33 ## initial value in the argument list of the function definition. 33 ## initial value in the argument list of the function definition.
34 34
35 if (ischar (script) 35 if (ischar (script)
36 && ((nargin != 1 && iscellstr (varargin)) 36 && ((nargin != 1 && iscellstr (varargin))
37 || (nargin == 1 && ! isempty (script)))) 37 || (nargin == 1 && ! isempty (script))))
38 [status, output] = system (cstrcat ("perl ", script, 38 [status, output] = system (cstrcat ("perl ", script,
39 sprintf (" %s", varargin{:}))); 39 sprintf (" %s", varargin{:})));
40 else 40 else
41 error ("perl: invalid arguments"); 41 error ("perl: invalid arguments");
42 endif 42 endif
43 43
44 endfunction 44 endfunction