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 <noh...@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 _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits