From: Michael G. Schwern <schwern@pobox.com>
Date: Wed, 6 Feb 2002 17:32:12 +0000 (-0500)
Subject: The debugger part of
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4865a36daa1b2556054c8fc5515c6d3ea3656997;p=p5sagit%2Fp5-mst-13.2.git

The debugger part of

Subject: [PATCH hints/os2.sh lib/perl5db.pl] Debugger to use proper pager
Message-ID: <20020206223212.GG1346@blackrider>

p4raw-id: //depot/perl@14632
---

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 2a8b2bf..c1996b0 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -398,12 +398,12 @@ warnLevel($warnLevel);
 dieLevel($dieLevel);
 signalLevel($signalLevel);
 
-&pager(
-    (defined($ENV{PAGER}) 
-	? $ENV{PAGER}
-	: ($^O eq 'os2' 
-	   ? 'cmd /c more' 
-	   : 'more'))) unless defined $pager;
+pager(
+      defined $ENV{PAGER}              ? $ENV{PAGER} :
+      eval { require Config } && 
+        defined $Config::Config{pager} ? $Config::Config{pager}
+                                       : 'more'
+     ) unless defined $pager;
 setman();
 &recallCommand("!") unless defined $prc;
 &shellBang("!") unless defined $psh;