Changeset 16617 for misc/runpugs/bin

Timestamp:

06/02/07 20:51:51 (18 months ago)

Author:

andara

Message:

[runpugs] -Better newline handling

Files:

• misc/runpugs/bin/test_session.pl (modified) (3 diffs)

misc/runpugs/bin/test_session.pl

@@ -2 +2 @@
 use strict;
 use warnings;
-use Perl6::Say;
-use lib '../lib';
 use Repl;
 use Web::Terminal::Server::Session;
@@ -15 +13 @@
 my $subref = sub {my $cmd=shift;my $res=$session->write($cmd);chomp $res; return ($res,$session->{'prompt'});};
 
-my $prompt =$session->prompt;
-my $motd =$session->output;
+my $prompt =$session->{'prompt'};
+my $motd =$session->{'output'};
 
 my $repl = new Repl {subref=>$subref,prompt=>$prompt,motd=>$motd};
@@ -34 +32 @@
                 );
                 #$new_session->init();
-                if ( $new_session->error == 1 ) {               
+                if ( $new_session->{'error'} == 1 ) {           
                         # Something went wrong, failed to create a new session
                         print "Something went wrong, failed to create a new session:\n";
-                        print $new_session->error;
-                        print $new_session->output;                     
+                        print $new_session->{'error'};
+                        print $new_session->{'output'};                 
                 }