Fixed fatal @ARGV handling.
authorshort <>
Thu, 21 Apr 2005 09:33:34 +0000 (09:33 +0000)
committershort <>
Thu, 21 Apr 2005 09:33:34 +0000 (09:33 +0000)
bin/kernel/kernelcvsignore

index 096e05a..1aefa55 100755 (executable)
@@ -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);