[svn:PHP-Sandwich] rev 1427 - PHP-Sandwich/trunk/t

Author: theory
Date: Fri Jul 29 18:59:51 2005
New Revision: 1427

Modified:
   PHP-Sandwich/trunk/t/test_perl_classes.t
Log:
gotta love Perl syntax.


Modified: PHP-Sandwich/trunk/t/test_perl_classes.t
==============================================================================
--- PHP-Sandwich/trunk/t/test_perl_classes.t	(original)
+++ PHP-Sandwich/trunk/t/test_perl_classes.t	Fri Jul 29 18:59:51 2005
@@ -18,7 +18,7 @@ ok $php->eval(q/
 
 # Try using an XS module.
 sub file {  __FILE__ }
-sub line { my $fh = shift; return <$fh> }
+sub line { return <+shift> }
 ok my $ret = $php->eval(q/
     $perl = Perl::getInstance();
     $file = $perl->call('file');