[Gnash-commit] [SCM] Gnash branch, master, updated. release_0_8_9_final-1671-g1692266

[Bastiaan Jacques]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnash".

The branch, master has been updated
       via  16922662a4b0bf084f32f96e951e9a159df39283 (commit)
      from  d08b917de212d81c2819014e3cb1883b34346e45 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
http://git.savannah.gnu.org/cgit//commit/?id=16922662a4b0bf084f32f96e951e9a159df39283


commit 16922662a4b0bf084f32f96e951e9a159df39283
Author: Bastiaan Jacques <address@hidden>
Date:   Tue Jul 16 20:53:06 2013 +0200

    Fall back on v4 if v6 is not available.

diff --git a/testsuite/XmlSocketServer.pl b/testsuite/XmlSocketServer.pl
index f5e0910..f3ff8ac 100644
--- a/testsuite/XmlSocketServer.pl
+++ b/testsuite/XmlSocketServer.pl
@@ -5,8 +5,13 @@ use Time::HiRes;
 
 $SIG{PIPE}='IGNORE';
 
-my $m=new IO::Socket::INET6(Listen=>1,LocalPort=>2229,Reuse=>1,Proto=>'tcp');
-my $O=new IO::Select($m);
+my $m;
+%socketArgs = (Listen=>1,LocalPort=>2229,Reuse=>1,Proto=>'tcp');
+$m = IO::Socket::INET6->new(%socketArgs)
+   or $m = IO::Socket::INET->new(%socketArgs)
+      or die ("Socket creation failed: $!\n");
+
+my $O = new IO::Select($m) or die ("Select failed: $!\n");
 
 $verbose = ( $ARGV[0] eq '-v' ) ? 1 : 0;
 

-----------------------------------------------------------------------

Summary of changes:
 testsuite/XmlSocketServer.pl |    9 +++++++--
 1 files changed, 7 insertions(+), 2 deletions(-)


hooks/post-receive
-- 
Gnash