pull-mail: New script to encapsulate what my crontab needs to do to pull

[bin.git] / expandvars

diff --git a/expandvars b/expandvars
index a7ea667e4b9dcfa05fb74401c7817f767e32c445..d9d7fd99ae2430216892b79893166542cff28409 100755 (executable)
--- a/expandvars
+++ b/expandvars
@@ -1,5 +1,4 @@
 #! /usr/bin/perl -w
-use diagnostics;
 use strict;
 use Getopt::Long;
 
@@ -54,7 +53,7 @@ while (<CONF>)
     last;
 }
 
-usage unless defined @params && $#params >= 0;
+usage unless @params;
 
 # Eek. This matches the next (optionally double-quoted) string on the line.
 my $stringre = qr/\s*("(?:[^\\]|\\.)*?"|(?:[^\\]|\\.)+?)(?:\s|$)/;