From: Matt S Trout <mst@shadowcat.co.uk>
Date: Fri, 18 May 2012 15:24:17 +0000 (+0000)
Subject: make remoterepl use a local backend if no ARGV
X-Git-Tag: v0.001001~51
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8892aa5c492c59969d83045576a49f2c031dbfc8;p=scpubgit%2FObject-Remote.git

make remoterepl use a local backend if no ARGV
---

diff --git a/bin/remoterepl b/bin/remoterepl
index f7bae7a..254fa15 100755
--- 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) {