rbpl 0.1 → 0.2

data/lib/perl/engine.pl

@@ -3,7 +3,11 @@
 use strict;
 use YAML::Syck;
 
-$| =1; # autoflush
+use IO::Handle;
+
+open Reader, "<&=", $ENV{ENGINE_READER};
+open Writer, ">&=", $ENV{ENGINE_WRITER};
+Writer->autoflush(1);
 
 our $data;
 our $data_length;
@@ -17,18 +21,18 @@ sub eval_and_respond {
     my $packed_result = Dump($@ ?
                     { status => "error", error => $@ } :
                     { status => "ok", result => $result });
-    print pack("L", length($packed_result)).$packed_result;
+    print Writer pack("L", length($packed_result)).$packed_result;
     $result;
 }
 
 while(1) {
 
-    exit 0 if eof(STDIN); # Wait for data or exit if the parent closes the pipe
+    exit 0 if eof(Reader); # Wait for data or exit if the parent closes the pipe
 
-    read(STDIN, $data_length, 4) == 4 or die "Can not read \$data_length from stdin";
+    read(Reader, $data_length, 4) == 4 or die "Can not read \$data_length from stdin";
     $data_length = unpack("L", $data_length);
 
-    read(STDIN, $data, $data_length) == $data_length or die "Can not read \$data from stdin";
+    read(Reader, $data, $data_length) == $data_length or die "Can not read \$data from stdin";
     $data = Load($data);    
 
     if($data->{request} eq "eval") {

data/lib/perl/engine.rb

@@ -29,12 +29,9 @@ class Perl
 
             @pid = fork do
                 writer[1].close
-                STDIN.reopen(writer[0])
-                writer[0].close
-
                 reader[0].close
-                STDOUT.reopen(reader[1])
-                reader[1].close
+                ENV["ENGINE_READER"] = writer[0].fileno.to_s
+                ENV["ENGINE_WRITER"] = reader[1].fileno.to_s
 
                 exec "perl", PerlFile
             end

metadata

@@ -1,7 +1,11 @@
 --- !ruby/object:Gem::Specification 
 name: rbpl
 version: !ruby/object:Gem::Version 
-  version: "0.1"
+  prerelease: false
+  segments: 
+  - 0
+  - 2
+  version: "0.2"
 platform: ruby
 authors: 
 - Ayose Cazorla
@@ -9,7 +13,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-06-13 00:00:00 +01:00
+date: 2010-06-14 00:00:00 +01:00
 default_executable: 
 dependencies: []
 
@@ -22,8 +26,8 @@ extensions: []
 extra_rdoc_files: []
 
 files: 
-- lib/perl/engine.pl
 - lib/perl/engine.rb
+- lib/perl/engine.pl
 - lib/perl.rb
 - Rakefile
 has_rdoc: true
@@ -39,18 +43,20 @@ required_ruby_version: !ruby/object:Gem::Requirement
   requirements: 
   - - ">="
     - !ruby/object:Gem::Version 
+      segments: 
+      - 0
       version: "0"
-  version: 
 required_rubygems_version: !ruby/object:Gem::Requirement 
   requirements: 
   - - ">="
     - !ruby/object:Gem::Version 
+      segments: 
+      - 0
       version: "0"
-  version: 
 requirements: []
 
 rubyforge_project: 
-rubygems_version: 1.3.5
+rubygems_version: 1.3.6
 signing_key: 
 specification_version: 3
 summary: Execute Perl code from a Ruby script