We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents 25ff15d + aa4b83d commit 300b2a1Copy full SHA for 300b2a1
git-svn.perl
@@ -297,28 +297,12 @@ sub _req_svn {
297
{} ],
298
);
299
300
-package FakeTerm;
301
-sub new {
302
- my ($class, $reason) = @_;
303
- return bless \$reason, shift;
304
-}
305
-sub readline {
306
- my $self = shift;
307
- die "Cannot use readline on FakeTerm: $$self";
308
309
-package main;
310
-
311
my $term;
312
sub term_init {
313
- $term = eval {
314
- require Term::ReadLine;
315
- $ENV{"GIT_SVN_NOTTY"}
+ require Term::ReadLine;
+ $term = $ENV{"GIT_SVN_NOTTY"}
316
? new Term::ReadLine 'git-svn', \*STDIN, \*STDOUT
317
: new Term::ReadLine 'git-svn';
318
- };
319
- if ($@) {
320
- $term = new FakeTerm "$@: going non-interactive";
321
- }
322
}
323
324
my $cmd;
0 commit comments