From 2b3e68fd4ac19a68d6c8ac7fd6a6784096133f22 Mon Sep 17 00:00:00 2001
From: Shlomi Fish <shlomif@shlomifish.org>
Date: Sat, 29 Sep 2012 22:34:52 +0200
Subject: [PATCH] [perl5db] More refactoring.

1. Got rid of a trailing block comment because the block is shorter.

2. Now using something more sensible than s/^/perl/.
---
 lib/perl5db.pl | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 1172b29..273c433 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -8368,12 +8368,11 @@ sub runman {
         unless ( $page =~ /^perl\w/ ) {
 # do it this way because its easier to slurp in to keep up to date - clunky though.
             if (exists($_is_in_pods{$page})) {
-                $page =~ s/^/perl/;
                 CORE::system( $doccmd,
                     ( ( $manpath && !$nopathopt ) ? ( "-M", $manpath ) : () ),
-                    $page );
+                    "perl$page" );
             }
-        } ## end unless ($page =~ /^perl\w/)
+        }
     } ## end if (CORE::system($doccmd...
     if ( defined $oldpath ) {
         $ENV{MANPATH} = $manpath;
-- 
2.7.4