Mercurial > hg > octave-lojdl
changeset 7679:3c16e2414564
perl: don't provide default value for varargin
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Tue, 01 Apr 2008 16:35:48 -0400 |
parents | 5988e08c1ae6 |
children | a0ec02774303 |
files | scripts/miscellaneous/perl.m |
diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/miscellaneous/perl.m +++ b/scripts/miscellaneous/perl.m @@ -26,7 +26,11 @@ ## @seealso{system} ## @end deftypefn -function [output, status] = perl (script = "-e ''", varargin = {}) +function [output, status] = perl (script = "-e ''", varargin) + + ## VARARGIN is intialized to {}(1x0) if no additional arguments are + ## supplied, so there is no need to check for it, or provide an + ## initial value in the argument list of the function definition. if (ischar (script) && ((nargin != 1 && iscellstr (varargin))