svn commit: r266274 - in /perl/modperl/trunk/t/protocol: TestProtocol/pseudo_http.pm pseudo_http.t

[pgollucci]

Author: pgollucci
Date: Thu Sep  1 21:30:03 2005
New Revision: 266274

URL: http://svn.apache.org/viewcvs?rev=266274&view=rev
Log:
s/my(/my (/g

Modified:
    perl/modperl/trunk/t/protocol/TestProtocol/pseudo_http.pm
    perl/modperl/trunk/t/protocol/pseudo_http.t

Modified: perl/modperl/trunk/t/protocol/TestProtocol/pseudo_http.pm
URL: 
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/protocol/TestProtocol/pseudo_http.pm?rev=266274&r1=266273&r2=266274&view=diff
==============================================================================
--- perl/modperl/trunk/t/protocol/TestProtocol/pseudo_http.pm (original)
+++ perl/modperl/trunk/t/protocol/TestProtocol/pseudo_http.pm Thu Sep  1 
21:30:03 2005
@@ -123,7 +123,7 @@
 }
 
 sub prompt {
-    my($socket, $msg) = @_;
+    my ($socket, $msg) = @_;
 
     $socket->send("$msg:\n");
     getline($socket);

Modified: perl/modperl/trunk/t/protocol/pseudo_http.t
URL: 
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/protocol/pseudo_http.t?rev=266274&r1=266273&r2=266274&view=diff
==============================================================================
--- perl/modperl/trunk/t/protocol/pseudo_http.t (original)
+++ perl/modperl/trunk/t/protocol/pseudo_http.t Thu Sep  1 21:30:03 2005
@@ -55,13 +55,13 @@
 }
 
 sub expect {
-    my($socket, $expect, $action) = @_;
+    my ($socket, $expect, $action) = @_;
     chomp(my $recv = <$socket> || '');
     ok t_cmp($recv, $expect, $action);
 }
 
 sub expect_reply {
-    my($socket, $expect, $reply, $action) = @_;
+    my ($socket, $expect, $reply, $action) = @_;
     chomp(my $recv = <$socket> || '');
     ok t_cmp($recv, $expect, $action);
     t_debug("send: $reply");