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 (file)
--- 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;