Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Pod::Man Ate My 'O'! #2349

Closed
p5pRT opened this issue Aug 10, 2000 · 4 comments
Closed

Pod::Man Ate My 'O'! #2349

p5pRT opened this issue Aug 10, 2000 · 4 comments
Labels
distro-HPUX type-core

Comments

@p5pRT
Copy link

p5pRT commented Aug 10, 2000

Migrated from rt.perl.org#3674 (status was 'resolved')

Searchable as RT3674$
@p5pRT
Copy link
Author

p5pRT commented Aug 10, 2000

From John.Gamble@us.wmmercer.com

Created by john.gamble@us.wmmercer.com

Don't ask me why i was browsing through man/man1/perlfaq8.1, but in
doing so i came across this, beginning on line 404​:

.Ip "open mode" 4
.IX Item "pen mode"

Hmm, the "o" is gone. After studying Pod​::Man for a while, i came
across this comment that headed sub cmd_item​: "rofficate bullets too
while we're at it (so for nice output, use * for your lists rather than
o or . or - or some other thing)."

And indeed, there is a line in the sub that does that​:

$index =~ s/^\s*[-*+o.]?\s*//;

I'm not certain what the proper fix is. Change the second "\s*" to
"\s+"? Or perhaps just remove the "o" from the character class
altogether?

  -john

Perl Info 

Flags:
    category=library
    severity=low

Site configuration information for perl v5.6.0:

Configured by nemadc at Fri Jun 23 16:43:10 CDT 2000.

Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration:
  Platform:
    osname=hpux, osvers=10.20, archname=PA-RISC1.1
    uname='hp-ux dflws01 b.10.20 a 9000778 2010033195 two-user license '
    config_args=''
    hint=previous, useposix=true, d_sigaction=define
    usethreads=undef use5005threads=undef useithreads=undef
usemultiplicity=undef
    useperlio=undef d_sfio=undef uselargefiles=define 
    use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef
  Compiler:
    cc='cc', optimize='-O', gccversion=
    cppflags='-D_HPUX_SOURCE -DDEBUGGING -D_LARGEFILE_SOURCE
-D_FILE_OFFSET_BITS=64 -Ae'
    ccflags ='-D_HPUX_SOURCE -DDEBUGGING -D_LARGEFILE_SOURCE
-D_FILE_OFFSET_BITS=64 -Ae'
    stdchar='unsigned char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=8
    alignbytes=8, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='ld', ldflags =' -L/usr/local/lib'
    libpth=/appl/lib /usr/local/lib /lib /usr/lib /usr/ccs/lib
    libs=-lnsl_s -lndbm -lmalloc -ldld -lm -lc -lndir -lcrypt -lsec
    libc=/lib/libc.sl, so=sl, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_hpux.xs, dlext=sl, d_dlsymun=undef, ccdlflags='-Wl,-E
-Wl,-B,deferred '
    cccdlflags='+z', lddlflags='-b +vnocompatwarnings -L/usr/local/lib'

Locally applied patches:
    


@INC for perl v5.6.0:
    /appl/perl-5.6.0/lib/5.6.0/PA-RISC1.1
    /appl/perl-5.6.0/lib/5.6.0
    /appl/perl-5.6.0/lib/site_perl/5.6.0/PA-RISC1.1
    /appl/perl-5.6.0/lib/site_perl/5.6.0
    /appl/perl-5.6.0/lib/site_perl
    .


Environment for perl v5.6.0:
    HOME=/home/gamblej
    LANG (unset)
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=/appl/perl5/bin:/usr/bin:/usr/ccs/bin:/usr/contrib/bin:/opt/nettladm/bi
n:/usr/bin/X11:/usr/contrib/bin/X11:/opt/pd/bin:/opt/upgrade/bin:/opt/hparray/bi
n:/opt/perf/bin:/opt/resmon/bin:/opt/ignite/bin:/view/Static_view/cm/dbase/tools
/static::/usr/local/bin:/appl/sybase/bin:/appl/sybase/install:/appl/sybase/lbin:
.:/appl/bin:/appl/CenterLine/bin:/appl/CenterLine/pa-hpux8/bin:/usr/atria/bin:/a
ppl/sqr/syb/bin:/appl/pure/purify-4.1-hpux:/usr/bin/X11::/home/gamblej/bin
    PERL_BADLANG (unset)
    SHELL=/bin/ksh
    SHLIB_PATH (unset)

@p5pRT
Copy link
Author

p5pRT commented Aug 10, 2000

From [Unknown Contact. See original ticket]

John Gamble <John.Gamble@​us.wmmercer.com> writes​:

Don't ask me why i was browsing through man/man1/perlfaq8.1, but in
doing so i came across this, beginning on line 404​:

.Ip "open mode" 4
.IX Item "pen mode"

Hmm, the "o" is gone. After studying Pod​::Man for a while, i came
across this comment that headed sub cmd_item​: "rofficate bullets too
while we're at it (so for nice output, use * for your lists rather than
o or . or - or some other thing)."

And indeed, there is a line in the sub that does that​:

$index =~ s/^\s*[-*+o.]?\s*//;

I'm not certain what the proper fix is. Change the second "\s*" to
"\s+"? Or perhaps just remove the "o" from the character class
altogether?

This only affects the index entry, so it doesn't really matter that much.
But yup, it's a bug, and should be fixed. Try this patch​:

--- Man.pm 2000/05/01 04​:35​:36 1.6
+++ Man.pm 2000/08/11 03​:48​:09
@​@​ -683,7 +683,7 @​@​
  my $index;
  if (/\w/ && !/^\w[.\)]\s*$/) {
  $index = $_;
- $index =~ s/^\s*[-*+o.]?\s*//;
+ $index =~ s/^\s*[-*+o.]?(?​:\s+|\Z)//;
  }
  s/^\*(\s|\Z)/\\\(bu$1/;
  if ($$self{WEIRDINDENT}) {

@p5pRT
Copy link
Author

p5pRT commented May 8, 2003

From @iabyn

(Just reviewing old perl bugs).

I'm closing this call, as it's been fixed in Perl 5.6.1.

Regards,

Dave M.

@p5pRT
Copy link
Author

p5pRT commented May 8, 2003

@iabyn - Status changed from 'open' to 'resolved'

@p5pRT p5pRT closed this as completed May 8, 2003
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Assignees
No one assigned
Labels
distro-HPUX type-core
Projects
None yet
Milestone
No milestone
Development

No branches or pull requests
1 participant
@p5pRT