[libcgi-test-perl] 02/06: Reverting some of the fixes that broke 5.6 compatibility

[Axel Beckert]

This is an automated email from the git hooks/post-receive script.

abe pushed a commit to annotated tag 1.002
in repository libcgi-test-perl.

commit 460b470f679cb0964bbda26640fa645e3e9b57af
Author: Alex Tokarev <nohuhu at nohuhu.org>
Date:   Mon Mar 2 20:21:04 2015 -0800

    Reverting some of the fixes that broke 5.6 compatibility
---
 t/cgi/dumpargs | 3 ++-
 t/cgi/getform  | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/t/cgi/dumpargs b/t/cgi/dumpargs
index 44ca89f..d81f594 100755
--- a/t/cgi/dumpargs
+++ b/t/cgi/dumpargs
@@ -5,7 +5,8 @@ $PERL -x 3<&0 <<'END_OF_SCRIPT'
 
 use CGI qw/:standard/;
 
-open STDIN, '<&=', 3 or die "Can't reopen STDIN";
+# 2 argument open here for older Perls
+open STDIN, '<&3' or die "Can't reopen STDIN";
 
 print header(-type => "text/plain");
 
diff --git a/t/cgi/getform b/t/cgi/getform
index 6d40a07..623c3d0 100755
--- a/t/cgi/getform
+++ b/t/cgi/getform
@@ -5,7 +5,8 @@ $PERL -x 3<&0 <<'END_OF_SCRIPT'
 
 use CGI qw/:standard :no_xhtml/;
 
-open STDIN, '<&=', 3 or die "Can't reopen STDIN";
+# 2 argument open here for older Perls
+open STDIN, '<&3' or die "Can't reopen STDIN";
 
 $\ = "\n";
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcgi-test-perl.git