Fixed fatal @ARGV handling.

[nethome.git] / bin / kernel / kernelcvsignore

diff --git a/bin/kernel/kernelcvsignore b/bin/kernel/kernelcvsignore
index 71e5fd9..1aefa55 100755 (executable)
--- a/bin/kernel/kernelcvsignore
+++ b/bin/kernel/kernelcvsignore
@@ -15,7 +15,7 @@ BEGIN {
        eval "use AutoGen;1;" or die <<"HERE";
 Missing "Autogen.pm". Please download the directory 'macros':
        cvs -d :pserver:pserver:@{[ '@' ]}cvs.jankratochvil.net:/cvs checkout macros
-and place it to '$macros_dir_default' or point ENV{$macros_env} variable there.
+and place it to '$macros_dir_default' or point \$ENV{"$macros_env"} variable there.
 HERE
 }
 
@@ -27,7 +27,7 @@ require "".dirname($0)."/My-KernelIgnoreList.pm";
 1 if @My::KernelIgnoreList::list;
 my @cleanfiles=@My::KernelIgnoreList::list;
 
-for my $cvsdir (@ARGV||".") {
+for my $cvsdir (@ARGV ? @ARGV : ".") {
        for my $dir (AutoGen::_cvsdirs($cvsdir)) {
                my @cleanfilesfordir=AutoGen::_cleanfilesfordir $dir,@cleanfiles;
                AutoGen::_writefile $dir."/.cvsignore",map("$_\n",@cleanfilesfordir);