1 files changed, 1 insertions, 1 deletions
diff --git a/t/TEST b/t/TEST
index 47560cdc71..9ac287a7f4 100755
--- a/t/TEST
+++ b/t/TEST
@@ -206,7 +206,7 @@ EOT
  	open(SCRIPT,"<$test") or die "Can't run $test.\n";
  	$_ = <SCRIPT>;
  	close(SCRIPT) unless ($type eq 'deparse');
- 	if (/#!.*\bperl.*-\w*([tT])/) {
+ 	if (/#!.*\bperl.*\s-\w*([tT])/) {
  	    $switch = qq{"-$1"};
  	}
  	else {