fix perl typo in split function, triggering on neweperl versions

darcs-hash:20050607111948-518f5-d8a4d80bc6ca59df103d8148ac89a6772be3cf96.gz

1 files changed, 1 insertions, 1 deletions

diff --git a/Carpet/CarpetIOASCII/src/util/Carpet2ygraph.pl b/Carpet/CarpetIOASCII/src/util/Carpet2ygraph.pl
index 0f49aaf01..122200909 100755
--- a/Carpet/CarpetIOASCII/src/util/Carpet2ygraph.pl
+++ b/Carpet/CarpetIOASCII/src/util/Carpet2ygraph.pl
@@ -97,7 +97,7 @@ while (<CARPETFILE>)
     }
     else # The line contains real data
     {
-	@data = split(/ \t]+/,$line);
+	@data = split([/ \t]+/,$line);
 	if ($flag== 0) # This is the first line of data
 	{
 	    $flag = 1;