[libcgi-test-perl] 01/02: A little shell magic to make CGI scripts compatible with old Solaris sh

[Axel Beckert]

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

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

commit 16caf50162d1ba67607c63782a610161c8597b62
Author: Alex Tokarev <nohuhu at nohuhu.org>
Date:   Fri Feb 27 23:11:48 2015 -0800

    A little shell magic to make CGI scripts compatible with old Solaris sh
---
 t/cgi/dumpargs | 6 ++----
 t/cgi/getform  | 6 ++----
 2 files changed, 4 insertions(+), 8 deletions(-)

diff --git a/t/cgi/dumpargs b/t/cgi/dumpargs
index 21e9a12..44ca89f 100755
--- a/t/cgi/dumpargs
+++ b/t/cgi/dumpargs
@@ -1,13 +1,11 @@
 #!/bin/sh
 
-exec 3<&0
-
-$PERL -x <<'END_OF_SCRIPT'
+$PERL -x 3<&0 <<'END_OF_SCRIPT'
 #!perl
 
 use CGI qw/:standard/;
 
-open STDIN, '<&3' or die "Can't reopen STDIN";
+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 37bd894..6d40a07 100755
--- a/t/cgi/getform
+++ b/t/cgi/getform
@@ -1,13 +1,11 @@
 #!/bin/sh
 
-exec 3<&0
-
-$PERL -x <<'END_OF_SCRIPT'
+$PERL -x 3<&0 <<'END_OF_SCRIPT'
 #!perl
 
 use CGI qw/:standard :no_xhtml/;
 
-open STDIN, '<&3' or die "Can't reopen STDIN";
+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