From 091c52fef7636020522334f7eff58701f5fd8489 Mon Sep 17 00:00:00 2001
From: Dan Fandrich <dan@coneharvesters.com>
Date: Fri, 19 Nov 2010 15:27:28 -0800
Subject: Use the 3-argument open for compatibility with older perls

---
 tests/symbol-scan.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tests/symbol-scan.pl')

diff --git a/tests/symbol-scan.pl b/tests/symbol-scan.pl
index 2f9ce3507..f12660339 100644
--- a/tests/symbol-scan.pl
+++ b/tests/symbol-scan.pl
@@ -35,7 +35,7 @@ my $verbose=0;
 my $summary=0;
 my $misses=0;
 
-open H_IN, "-|", "cpp", $h;
+open H_IN, "-|", "cpp " . $h;
 while ( <H_IN> ) {
     if ( /enum\s+(\S+\s+)?{/ .. /}/ ) {
         s/^\s+//;
-- 
cgit v1.2.3