# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1207082148 14400
# Node ID 3c16e24145647e15720caaae59e02c1d65f54d6e
# Parent  5988e08c1ae6d818c71c6d040e7a8b4b86537d5e
perl: don't provide default value for varargin

diff --git a/scripts/miscellaneous/perl.m b/scripts/miscellaneous/perl.m
--- 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))