appears to be a good idea suing noperldoc opt.

gugod · Oct 25, 2011 · c65028f · c65028f
1 parent 51917a3
commit c65028f
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/lib/App/perlbrew.pm b/lib/App/perlbrew.pm
@@ -418,10 +418,11 @@ sub run_command_help {
             open my $fh, ">", \$out;
 
             Pod::Usage::pod2usage(
-                -exitval  => "NOEXIT",
-                -verbose  => 99,
-                -sections => "COMMAND: " . uc($status),
-                -output   => $fh,
+                -exitval   => "NOEXIT",
+                -verbose   => 99,
+                -sections  => "COMMAND: " . uc($status),
+                -output    => $fh,
+                -noperldoc => 1
             );
 
             $out =~ s/\A[^\n]+\n//s;