Mercurial > hg > octave-nkf

changeset 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 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))