[interchange-cvs] interchange - heins modified Makefile.PL
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Sat Aug 3 15:53:00 2002
User: heins
Date: 2002-08-03 19:52:03 GMT
Modified: . Makefile.PL
Log:
* Handle error if Term::Readline::Perl can't open tty.
Revision Changes Path
2.25 +5 -2 interchange/Makefile.PL
rev 2.25, prev_rev 2.24
Index: Makefile.PL
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /var/cvs/interchange/Makefile.PL,v
retrieving revision 2.24
retrieving revision 2.25
diff -u -r2.24 -r2.25
--- Makefile.PL 23 Jul 2002 17:42:46 -0000 2.24
+++ Makefile.PL 3 Aug 2002 19:52:03 -0000 2.25
@@ -61,8 +61,11 @@
=20
my $term;
if($TermRead) {
- $term =3D new Term::ReadLine 'MakeFile';
- $Prompt_sub =3D sub {
+ eval {
+ $term =3D new Term::ReadLine 'MakeFile';
+ };
+
+ ! $@ and $Prompt_sub =3D sub {
my($prompt, $default) =3D @_;
$prompt .=3D "[$default] "
if defined $default && !$ENV{PERL_RL};