X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~cjwatson/git?p=bin.git;a=blobdiff_plain;f=expandvars;h=d9d7fd99ae2430216892b79893166542cff28409;hp=a7ea667e4b9dcfa05fb74401c7817f767e32c445;hb=ae167f5853dae73ed23c077e76553bc3e933bffa;hpb=ece46611b24954ba4ec16cc12e5083acc319bc41

diff --git a/expandvars b/expandvars
index a7ea667..d9d7fd9 100755
--- 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|$)/;