Mercurial > hg > octave-nkf

diff scripts/miscellaneous/perl.m @ 7679:3c16e2414564

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 8abada567409
children 1bf0ce0930be
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))