[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};