On Mon, Apr 30, 2012 at 03:44:48PM -0400, Ricardo Signes wrote: > * Shawn H Corey <[email protected]> [2012-04-30T12:26:58] > > With further investigation, I found that pod::perldoc is formatted > > for regular paragraphs in is SYNOPSIS. It's the pod2... that decided > > that anything under SYNOPSIS _must_ be verbatim. Since when was this > > decided and why? > > I believe you are mistaken -- or that you are using an old version of perldoc. > > http://api.metacpan.org/source/MALLEN/Pod-Perldoc-3.17/lib/perldoc.pod > > The SYNOPSIS contents are indented. Someone earlier in the thread noted that > this has not always been the case. > > The pod2_ programs seem blameless, here.
So, I tried the usual hammer: ../perl/Porting/bisect.pl --expect-fail --start v5.14.0 -- sh -c './perl -Ilib utils/perldoc perldoc | grep '\''B<'\' HEAD is now at 0909e3f Upgrade Pod-Perldoc to CPAN version 3.15_15 bad - zero exit from sh -c ./perl -Ilib utils/perldoc perldoc | grep 'B<' 0909e3f8ef8e05f1d7a64f033b3e0aaa67a55cd9 is the first bad commit commit 0909e3f8ef8e05f1d7a64f033b3e0aaa67a55cd9 Author: Ricardo Signes <[email protected]> Date: Fri Jan 6 07:58:33 2012 -0500 Upgrade Pod-Perldoc to CPAN version 3.15_15 :100644 100644 2df14621699e4324e8eca934eedc80400f233522 3d1a191271add93814ca1e19bfa680eae9de8575 M MANIFEST :040000 040000 8ac62a40622c0aa55b341e0b1f4a386d323db8b9 2a777a222f264cb0bb2848b95e2866fb4f41656c M Porting :040000 040000 c97ab1973e9622adcddeb4a3dd99946be8b729fa 0a8b85d4c1d90a08aed87df0577d608f850ac9a4 M dist bisect run success That took 1171 seconds This seems to be an upgrade from 3.15_08 to 3.15_15 The culprit looks to be the changes starting here: diff --git a/dist/Pod-Perldoc/lib/perldoc.pod b/dist/Pod-Perldoc/lib/perldoc.pod index 6a45148..42a9eab 100644 --- a/dist/Pod-Perldoc/lib/perldoc.pod +++ b/dist/Pod-Perldoc/lib/perldoc.pod @@ -5,34 +5,36 @@ perldoc - Look up Perl documentation in Pod format. =head1 SYNOPSIS -B<perldoc> [B<-h>] [B<-D>] [B<-t>] [B<-u>] [B<-m>] [B<-l>] [B<-F>] -[B<-i>] [B<-V>] [B<-T>] [B<-r>] -[B<-dI<destination_file>>] -[B<-oI<formatname>>] -[B<-MI<FormatterClassName>>] -[B<-wI<formatteroption:value>>] -[B<-n>I<nroff-replacement>] -[B<-X>] -[B<-L> I<language_code>] -PageName|ModuleName|ProgramName|URL + B<perldoc> [B<-h>] [B<-D>] [B<-t>] [B<-u>] [B<-m>] [B<-l>] [B<-F>] + [B<-i>] [B<-V>] [B<-T>] [B<-r>] + [B<-dI<destination_file>>] + [B<-oI<formatname>>] + [B<-MI<FormatterClassName>>] + [B<-wI<formatteroption:value>>] + [B<-n>I<nroff-replacement>] + [B<-X>] + [B<-L> I<language_code>] + PageName|ModuleName|ProgramName|URL I don't seem to be doing very well on convincing other people that everything is a nail. Nicholas Clark
