removed process groups from the connection class child cleanup logic

[scpubgit/Object-Remote.git] / bin / remoterepl

diff --git a/bin/remoterepl b/bin/remoterepl
index f7bae7a..254fa15 100755 (executable)
--- a/bin/remoterepl
+++ b/bin/remoterepl
@@ -15,7 +15,7 @@ $SIG{INT} = sub { warn "SIGINT\n" };
 
 #{ no warnings 'once'; $Object::Remote::Connection::DEBUG = 1; }
 
-my $eval = Eval::WithLexicals->new::on($ARGV[0]);
+my $eval = Eval::WithLexicals->new::on($ARGV[0]||'-');
 
 my $read = Term::ReadLine->new('Perl REPL');
 while (1) {