fix misnamed attribute

jrockway · May 3, 2010 · 833b895 · 833b895
1 parent 57aa3ce
commit 833b895
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/lib/AnyEvent/REPL.pm b/lib/AnyEvent/REPL.pm
@@ -108,7 +108,7 @@ class AnyEvent::REPL {
                 $backend->load_plugins(@{$args->{backend_plugins} || []});
 
                 my $frontend = AnyEvent::REPL::Frontend->new(
-                    pty => $args->{comm},
+                    fh => $args->{comm},
                 );
 
                 my $loop = AnyEvent::REPL::Loop->

diff --git a/lib/AnyEvent/REPL/Frontend.pm b/lib/AnyEvent/REPL/Frontend.pm
@@ -3,14 +3,14 @@ use MooseX::Declare;
 class AnyEvent::REPL::Frontend with Devel::REPL::Frontend::API {
     use JSON;
 
-    has 'pty' => (
+    has 'fh' => (
         is       => 'ro',
         isa      => 'GlobRef',
         required => 1,
     );
 
     method read {
-        my $fh = $self->pty;
+        my $fh = $self->fh;
 
         my $request_json = <$fh>;
         return if !$request_json;
@@ -20,6 +20,7 @@ class AnyEvent::REPL::Frontend with Devel::REPL::Frontend::API {
     }
 
     method print(Ref $response) {
-        syswrite $self->pty, encode_json $response;
+        my $result = encode_json $response;
+        syswrite $self->fh, $result;
     }
 }