Mercurial > octave-nkf
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 Tue Apr 01 16:02:49 2008 -0400 +++ b/scripts/miscellaneous/perl.m Tue Apr 01 16:35:48 2008 -0400 @@ -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))