Item10701: i hate perl grep

git-svn-id: http://svn.foswiki.org/trunk@11699 0b4bb1d4-4e5a-0410-9cc4-b2b747904278
foswiki · May 17, 2011 · a37a576 · a37a576
1 parent e9b6cce
commit a37a576
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/core/tools/autoBuildFoswiki.pl b/core/tools/autoBuildFoswiki.pl
@@ -16,13 +16,13 @@
 use strict;
 
 
-if ( grep('-update', @ARGV) ) {
+if ( grep(/-update/, @ARGV) ) {
 	`curl http://svn.foswiki.org/trunk/core/tools/autoBuildFoswiki.pl > autoBuildFoswiki.pl`;
 	exit;
 }
 
 my $SvensAutomatedBuilds = 0;
-if ( grep('-sven', @ARGV) ) {
+if ( grep(/-sven/, @ARGV) ) {
    $SvensAutomatedBuilds = 1;
    print STDERR "doing an automated Sven build";
 }