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

Pod::HTML problem: =begin html and =end html fail to respect empty lines #5476

Closed
p5pRT opened this issue May 21, 2002 · 13 comments
Closed

Pod::HTML problem: =begin html and =end html fail to respect empty lines #5476

p5pRT opened this issue May 21, 2002 · 13 comments

Comments

@p5pRT
Copy link

@p5pRT p5pRT commented May 21, 2002

Migrated from rt.perl.org#9385 (status was 'rejected')

Searchable as RT9385$

@p5pRT
Copy link
Author

@p5pRT p5pRT commented May 21, 2002

From hughmyers@micron.com

Created by hughmyers@mail-srv1.micron.com

In Pod​::HTML 1.04, =begin html/=end html eats lines that consist of single
newlines, i.e. "\n". This happens
because the sub clean_data is applied to the body of text before parsing.
This converts the text into 'paragraphs',
text delimited by blank lines, which discards the delimiter. As an example,
the fragment​:

=begin html

<tt>
<pre>
#include <stdio.h>

int main(int argc,char *argv[]) {

  printf("Hellow World\n");
  return 0;

}
</pre>
</tt>

=end html

should display as​:

#include <stdio.h>

int main(int argc,char *argv[]) {

  printf("Hellow World\n");
  return 0;

}

not as​:

#include <stdio.h>int main(int argc,char *argv[]) { printf("Hellow
World\n");
  return 0;}

There is an obvious work-around of 'no blank lines--use  '

--hsm

Perl Info

Flags:
    category=core
    severity=medium

Site configuration information for perl v5.6.1:

Configured by tscheresky at Sat Jul  7 16:59:10 2001.

Summary of my perl5 (revision 5 version 6 subversion 1) configuration:
  Platform:
    osname=MSWin32, osvers=4.0, archname=MSWin32-x86
    uname=''
    config_args='undef'
    hint=recommended, useposix=true, d_sigaction=undef
    usethreads=undef use5005threads=undef useithreads=undef
usemultiplicity=undef
    useperlio=undef d_sfio=undef uselargefiles=undef usesocks=undef
    use64bitint=undef use64bitall=undef uselongdouble=undef
  Compiler:
    cc='cl', ccflags ='-nologo -O1 -MD -DNDEBUG -DWIN32 -D_CONSOLE
-DNO_STRICT -DHAVE_DES_FCRYPT  -DPERL_MSVCRT_READFIX',
    optimize='-O1 -MD -DNDEBUG',
    cppflags='-DWIN32'
    ccversion='', gccversion='', gccosandvers=''
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
    d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=10
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=4
    alignbytes=8, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='', ldflags ='-nologo -nodefaultlib -release
-libpath:"c:\mtapps\tsg\sps\perl\prod\lib\CORE"  -machine:x86'
    libpth="C:\Program Files\Microsoft Visual Studio\Common\MSDev98\lib"
    libs=  oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib
comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib  netapi32.lib
uuid.lib wsock32.lib mpr.lib winmm.lib  version.lib odbc32.lib odbccp32.lib
msvcrt.lib
    perllibs=  oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib
comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib  netapi32.lib
uuid.lib wsock32.lib mpr.lib winmm.lib  version.lib odbc32.lib odbccp32.lib
msvcrt.lib
    libc=msvcrt.lib, so=dll, useshrplib=yes, libperl=perl.lib
  Dynamic Linking:
    dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
    cccdlflags=' ', lddlflags='-dll -nologo -nodefaultlib -release
-libpath:"c:\mtapps\tsg\sps\perl\prod\lib\CORE"  -machine:x86'

Locally applied patches:
    


@INC for perl v5.6.1:
    C:\OpenAuto\perllib
    C:\mtapps\tsg\sps\perl\prod\lib
    C:\mtapps\tsg\sps\perl\prod\site\lib
    C:\Perl\lib
    C:\Perl\site\lib
    C:/MTAPPS/TSG/sps/perl/prod/lib
    C:/MTAPPS/TSG/sps/perl/prod/site/lib
    .


Environment for perl v5.6.1:
    HOME=C:\users
    LANG (unset)
    LANGUAGE (unset)
    LD_LIBRARY_PATH=C:\WINNT\System32
    LOGDIR (unset)
    PATH=C:\winnt;C:\texmf\miktex\bin;C:\Program
Files\CWEB\bin;PATH=C:\OpenAuto\v2.1\lib;C:\OpenAuto\v2.1\bin;C:\mtapps\tsg\
sps\perl\prod\bin;C:\PROGRA~1\RATIONAL\RATION~1\NUTCROOT\bin;C:\PROGRA~1\RAT
IONAL\RATION~1\NUTCROOT\bin\x11;C:\PROGRA~1\RATIONAL\RATION~1\NUTCROOT\mksnt
;C:\PROGRA~1\pvcs\VM\win32\bin;C:\PROGRA~1\DOCUME~1\DFCRE40\bin;C:\WINNT\sys
tem32;C:\WINNT;C:\WINNT\System32\WBEM;C:\WINNT\System32\WBEM\SNMP;C:\Sybase;
C:\Sybase\Bin;C:\Sybase\DLL;C:\Program Files\Documentum\Shared;C:\Program
Files\Documentum\DFCRE40\BIN;C:\Program Files\Rational\common;C:\Program
Files\Rational\ClearCase\bin;C:\Program
Files\Rational\ProcessWorkbench;C:\Program
Files\Rational\Rose\TopLink\;C:\Program Files\Rational\Rational
Test;C:\Program Files\Rational\ClearQuest;C:\Program
Files\Rational\Coverage;C:\Program Files\Rational\Coverage\cache;C:\Program
Files\Microsoft Visual Studio\Common\Tools;C:\Program Files\Microsoft Visual
Studio\VC98\Bin;C:\Program Files\doxygen\bin;C:\Perl\bin
 
PERLLIB=C:\OpenAuto\perllib;C:\mtapps\tsg\sps\perl\prod\lib;C:\mtapps\tsg\sp
s\perl\prod\site\lib;C:\Perl\lib;C:\Perl\site\lib
    PERL_BADLANG (unset)
    SHELL (unset)

Complete configuration data for perl v5.6.1:

Author=''
CONFIGDOTSH='true'
Date='$Date'
Header=''
Id='$Id'
Locker=''
Log='$Log'
PERL_API_REVISION='5'
PERL_API_SUBVERSION='0'
PERL_API_VERSION='5'
PERL_REVISION='5'
PERL_SUBVERSION='1'
PERL_VERSION='6'
RCSfile='$RCSfile'
Revision='$Revision'
Source=''
State=''
_a='.lib'
_exe='.exe'
_o='.obj'
afs='false'
alignbytes='8'
ansi2knr=''
aphostname=''
api_revision='5'
api_subversion='0'
api_version='5'
api_versionstring='5.5.0'
ar='lib'
archlib='c:\mtapps\tsg\sps\perl\prod\lib'
archlibexp='c:\mtapps\tsg\sps\perl\prod\lib'
archname='MSWin32-x86'
archname64=''
archobjs=''
awk='awk'
baserev='5'
bash=''
bin='c:\mtapps\tsg\sps\perl\prod\bin'
bincompat5005=''
binexp='c:\mtapps\tsg\sps\perl\prod\bin'
bison=''
byacc='byacc'
byteorder='1234'
c=''
castflags='0'
cat='type'
cc='cl'
cccdlflags=' '
ccdlflags=' '
ccflags='-nologo -O1 -MD -DNDEBUG -DWIN32 -D_CONSOLE -DNO_STRICT
-DHAVE_DES_FCRYPT  -DPERL_MSVCRT_READFIX'
ccflags_uselargefiles=''
ccname=''
ccsymbols=''
ccversion=''
cf_by='tscheresky'
cf_email='dtlperl@micron.com'
cf_time='Sat Jul  7 16:59:10 2001'
charsize='1'
chgrp=''
chmod=''
chown=''
clocktype='clock_t'
comm=''
compress=''
contains='grep'
cp='copy'
cpio=''
cpp='cl -nologo -E'
cpp_stuff='42'
cppccsymbols=''
cppflags='-DWIN32'
cpplast=''
cppminus=''
cpprun='cl -nologo -E'
cppstdin='cl -nologo -E'
cppsymbols=''
crosscompile=''
cryptlib=''
csh=''
d_Gconvert='sprintf((b),"%.*g",(n),(x))'
d_PRIEUldbl=''
d_PRIFUldbl=''
d_PRIGUldbl=''
d_PRIXU64=''
d_PRId64=''
d_PRIeldbl=''
d_PRIfldbl=''
d_PRIgldbl=''
d_PRIi64=''
d_PRIo64=''
d_PRIu64=''
d_PRIx64=''
d_SCNfldbl=''
d__fwalk=''
d_access='define'
d_accessx=''
d_alarm=''
d_archlib='define'
d_atolf=''
d_atoll=''
d_attribut=''
d_bcmp=''
d_bcopy=''
d_bincompat5005=''
d_bsd='define'
d_bsdgetpgrp=''
d_bsdsetpgrp=''
d_bzero=''
d_casti32=''
d_castneg='define'
d_charvspr=''
d_chown=''
d_chroot=''
d_chsize='define'
d_closedir='define'
d_const='define'
d_crypt='define'
d_csh=''
d_cuserid=''
d_dbl_dig='define'
d_difftime='define'
d_dirnamlen='define'
d_dlerror='define'
d_dlopen='define'
d_dlsymun=''
d_dosuid=''
d_drand48proto=''
d_dup2='define'
d_eaccess=''
d_endgrent=''
d_endhent=''
d_endnent=''
d_endpent=''
d_endpwent=''
d_endsent=''
d_eofnblk='define'
d_eunice=''
d_fchmod=''
d_fchown=''
d_fcntl=''
d_fcntl_can_lock=''
d_fd_macros='define'
d_fd_set='define'
d_fds_bits='define'
d_fgetpos='define'
d_flexfnam='define'
d_flock='define'
d_fork=''
d_fpathconf=''
d_fpos64_t=''
d_frexpl=''
d_fs_data_s=''
d_fseeko=''
d_fsetpos='define'
d_fstatfs=''
d_fstatvfs=''
d_fsync=''
d_ftello=''
d_ftime='define'
d_getcwd=''
d_getespwnam=''
d_getfsstat=''
d_getgrent=''
d_getgrps=''
d_gethbyaddr='define'
d_gethbyname='define'
d_gethent=''
d_gethname='define'
d_gethostprotos='define'
d_getlogin='define'
d_getmnt=''
d_getmntent=''
d_getnbyaddr=''
d_getnbyname=''
d_getnent=''
d_getnetprotos=''
d_getpagsz=''
d_getpbyname='define'
d_getpbynumber='define'
d_getpent=''
d_getpgid=''
d_getpgrp=''
d_getpgrp2=''
d_getppid=''
d_getprior=''
d_getprotoprotos='define'
d_getprpwnam=''
d_getpwent=''
d_getsbyname='define'
d_getsbyport='define'
d_getsent=''
d_getservprotos='define'
d_getspnam=''
d_gettimeod=''
d_gnulibc=''
d_grpasswd=''
d_hasmntopt=''
d_htonl='define'
d_iconv=''
d_index=''
d_inetaton=''
d_int64_t=''
d_isascii='define'
d_isnan='define'
d_isnanl=''
d_killpg=''
d_lchown=''
d_ldbl_dig='define'
d_link='define'
d_locconv='define'
d_lockf=''
d_longdbl='define'
d_longlong=''
d_lseekproto='define'
d_lstat=''
d_madvise=''
d_mblen='define'
d_mbstowcs='define'
d_mbtowc='define'
d_memchr='define'
d_memcmp='define'
d_memcpy='define'
d_memmove='define'
d_memset='define'
d_mkdir='define'
d_mkdtemp=''
d_mkfifo=''
d_mkstemp=''
d_mkstemps=''
d_mktime='define'
d_mmap=''
d_modfl=''
d_mprotect=''
d_msg=''
d_msg_ctrunc=''
d_msg_dontroute=''
d_msg_oob=''
d_msg_peek=''
d_msg_proxy=''
d_msgctl=''
d_msgget=''
d_msgrcv=''
d_msgsnd=''
d_msync=''
d_munmap=''
d_mymalloc=''
d_nice=''
d_nv_preserves_uv='define'
d_nv_preserves_uv_bits='32'
d_off64_t=''
d_old_pthread_create_joinable=''
d_oldpthreads=''
d_oldsock=''
d_open3=''
d_pathconf=''
d_pause='define'
d_perl_otherlibdirs=''
d_phostname=''
d_pipe='define'
d_poll=''
d_portable='define'
d_pthread_yield=''
d_pwage=''
d_pwchange=''
d_pwclass=''
d_pwcomment=''
d_pwexpire=''
d_pwgecos=''
d_pwpasswd=''
d_pwquota=''
d_qgcvt=''
d_quad=''
d_readdir='define'
d_readlink=''
d_rename='define'
d_rewinddir='define'
d_rmdir='define'
d_safebcpy=''
d_safemcpy=''
d_sanemcmp='define'
d_sbrkproto=''
d_sched_yield=''
d_scm_rights=''
d_seekdir='define'
d_select='define'
d_sem=''
d_semctl=''
d_semctl_semid_ds=''
d_semctl_semun=''
d_semget=''
d_semop=''
d_setegid=''
d_seteuid=''
d_setgrent=''
d_setgrps=''
d_sethent=''
d_setlinebuf=''
d_setlocale='define'
d_setnent=''
d_setpent=''
d_setpgid=''
d_setpgrp=''
d_setpgrp2=''
d_setprior=''
d_setproctitle=''
d_setpwent=''
d_setregid=''
d_setresgid=''
d_setresuid=''
d_setreuid=''
d_setrgid=''
d_setruid=''
d_setsent=''
d_setsid=''
d_setvbuf='define'
d_sfio=''
d_shm=''
d_shmat=''
d_shmatprototype=''
d_shmctl=''
d_shmdt=''
d_shmget=''
d_sigaction=''
d_sigsetjmp=''
d_socket='define'
d_socklen_t=''
d_sockpair=''
d_socks5_init=''
d_sqrtl=''
d_statblks=''
d_statfs_f_flags=''
d_statfs_s=''
d_statvfs=''
d_stdio_cnt_lval='define'
d_stdio_ptr_lval='define'
d_stdio_ptr_lval_nochange_cnt=''
d_stdio_ptr_lval_sets_cnt=''
d_stdio_stream_array=''
d_stdiobase='define'
d_stdstdio='define'
d_strchr='define'
d_strcoll='define'
d_strctcpy='define'
d_strerrm='strerror(e)'
d_strerror='define'
d_strtod='define'
d_strtol='define'
d_strtold=''
d_strtoll=''
d_strtoul='define'
d_strtoull=''
d_strtouq=''
d_strxfrm='define'
d_suidsafe=''
d_symlink=''
d_syscall=''
d_sysconf=''
d_sysernlst=''
d_syserrlst='define'
d_system='define'
d_tcgetpgrp=''
d_tcsetpgrp=''
d_telldir='define'
d_telldirproto='define'
d_time='define'
d_times='define'
d_truncate=''
d_tzname='define'
d_umask='define'
d_uname='define'
d_union_semun='define'
d_ustat=''
d_vendorarch=''
d_vendorbin=''
d_vendorlib=''
d_vfork=''
d_void_closedir=''
d_voidsig='define'
d_voidtty=''
d_volatile='define'
d_vprintf='define'
d_wait4=''
d_waitpid='define'
d_wcstombs='define'
d_wctomb='define'
d_xenix=''
date='date'
db_hashtype='int'
db_prefixtype='int'
defvoidused='15'
direntrytype='struct direct'
dlext='dll'
dlsrc='dl_win32.xs'
doublesize='8'
drand01='(rand()/(double)((unsigned)1<<RANDBITS))'
dynamic_ext='Socket IO Fcntl Opcode SDBM_File POSIX attrs Thread B re
Data/Dumper Devel/Peek ByteLoader Devel/DProf File/Glob  Sys/Hostname'
eagain='EAGAIN'
ebcdic=''
echo='echo'
egrep='egrep'
emacs=''
eunicefix=':'
exe_ext='.exe'
expr='expr'
extensions='DynaLoader Socket IO Fcntl Opcode SDBM_File POSIX attrs Thread B
re  Data/Dumper Devel/Peek ByteLoader Devel/DProf File/Glob  Sys/Hostname
Errno'
fflushNULL='define'
fflushall=''
find='find'
firstmakefile='makefile'
flex=''
fpossize='4'
fpostype='fpos_t'
freetype='void'
full_ar=''
full_csh=''
full_sed=''
gccosandvers=''
gccversion=''
gidformat='"ld"'
gidsign='-1'
gidsize='4'
gidtype='gid_t'
glibpth='/usr/shlib  /lib/pa1.1 /usr/lib/large /lib /usr/lib /usr/lib/386
/lib/386 /lib/large /usr/lib/small /lib/small /usr/ccs/lib /usr/ucblib
/usr/shlib '
grep='grep'
groupcat=''
groupstype='gid_t'
gzip='gzip'
h_fcntl='false'
h_sysfile='true'
hint='recommended'
hostcat='ypcat hosts'
i16size='2'
i16type='short'
i32size='4'
i32type='long'
i64size='8'
i64type='__int64'
i8size='1'
i8type='char'
i_arpainet='define'
i_bsdioctl=''
i_db=''
i_dbm=''
i_dirent='define'
i_dld=''
i_dlfcn='define'
i_fcntl='define'
i_float='define'
i_gdbm=''
i_grp=''
i_iconv=''
i_ieeefp=''
i_inttypes=''
i_libutil=''
i_limits='define'
i_locale='define'
i_machcthr=''
i_malloc='define'
i_math='define'
i_memory=''
i_mntent=''
i_ndbm=''
i_netdb=''
i_neterrno=''
i_netinettcp=''
i_niin=''
i_poll=''
i_prot=''
i_pthread=''
i_pwd=''
i_rpcsvcdbm='define'
i_sfio=''
i_sgtty=''
i_shadow=''
i_socks=''
i_stdarg='define'
i_stddef='define'
i_stdlib='define'
i_string='define'
i_sunmath=''
i_sysaccess=''
i_sysdir=''
i_sysfile=''
i_sysfilio='define'
i_sysin=''
i_sysioctl=''
i_syslog=''
i_sysmman=''
i_sysmode=''
i_sysmount=''
i_sysndir=''
i_sysparam=''
i_sysresrc=''
i_syssecrt=''
i_sysselct=''
i_syssockio=''
i_sysstat='define'
i_sysstatfs=''
i_sysstatvfs=''
i_systime=''
i_systimek=''
i_systimes=''
i_systypes='define'
i_sysuio=''
i_sysun=''
i_sysutsname=''
i_sysvfs=''
i_syswait=''
i_termio=''
i_termios=''
i_time='define'
i_unistd=''
i_ustat=''
i_utime='define'
i_values=''
i_varargs=''
i_varhdr='varargs.h'
i_vfork=''
ignore_versioned_solibs=''
inc_version_list=''
inc_version_list_init='0'
incpath='"C:\Program Files\Microsoft Visual Studio\Common\MSDev98\include"'
inews=''
installarchlib='c:\mtapps\tsg\sps\perl\prod\lib'
installbin='c:\mtapps\tsg\sps\perl\prod\bin'
installhtmldir='c:\mtapps\tsg\sps\perl\prod\html'
installhtmlhelpdir='c:\mtapps\tsg\sps\perl\prod\htmlhelp'
installman1dir='c:\mtapps\tsg\sps\perl\prod\man\man1'
installman3dir='c:\mtapps\tsg\sps\perl\prod\man\man3'
installprefix='c:\mtapps\tsg\sps\perl\prod'
installprefixexp='c:\mtapps\tsg\sps\perl\prod'
installprivlib='c:\mtapps\tsg\sps\perl\prod\lib'
installscript='c:\mtapps\tsg\sps\perl\prod\bin'
installsitearch='c:\mtapps\tsg\sps\perl\prod\site\lib'
installsitebin='c:\mtapps\tsg\sps\perl\prod\bin'
installsitelib='c:\mtapps\tsg\sps\perl\prod\site\lib'
installstyle='lib'
installusrbinperl=''
installvendorarch=''
installvendorbin=''
installvendorlib=''
intsize='4'
issymlink=''
ivdformat='"ld"'
ivsize='4'
ivtype='long'
known_extensions='DynaLoader Socket IO Fcntl Opcode SDBM_File POSIX attrs
Thread B re  Data/Dumper Devel/Peek ByteLoader Devel/DProf File/Glob
Sys/Hostname Errno'
ksh=''
ld=''
lddlflags='-dll -nologo -nodefaultlib -release
-libpath:"c:\mtapps\tsg\sps\perl\prod\lib\CORE"  -machine:x86'
ldflags='-nologo -nodefaultlib -release
-libpath:"c:\mtapps\tsg\sps\perl\prod\lib\CORE"  -machine:x86'
ldflags_uselargefiles=''
ldlibpthname=''
less='less'
lib_ext='.lib'
libc='msvcrt.lib'
libperl='perl.lib'
libpth='"C:\Program Files\Microsoft Visual Studio\Common\MSDev98\lib"'
libs='  oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib
comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib  netapi32.lib
uuid.lib wsock32.lib mpr.lib winmm.lib  version.lib odbc32.lib odbccp32.lib
msvcrt.lib'
libsdirs=''
libsfiles=''
libsfound=''
libspath=''
libswanted='net socket inet nsl nm ndbm gdbm dbm db malloc dl dld ld sun m c
cposix posix ndir dir crypt ucb bsd BSD PW x'
libswanted_uselargefiles=''
line='line'
lint=''
lkflags=''
ln=''
lns='copy'
locincpth='/usr/local/include /opt/local/include /usr/gnu/include
/opt/gnu/include /usr/GNU/include /opt/GNU/include'
loclibpth='/usr/local/lib /opt/local/lib /usr/gnu/lib /opt/gnu/lib
/usr/GNU/lib /opt/GNU/lib'
longdblsize='10'
longlongsize='8'
longsize='4'
lp=''
lpr=''
ls='dir'
lseeksize='4'
lseektype='off_t'
mail=''
mailx=''
make='nmake'
make_set_make='#'
mallocobj='malloc.o'
mallocsrc='malloc.c'
malloctype='void *'
man1dir='c:\mtapps\tsg\sps\perl\prod\man\man1'
man1direxp='c:\mtapps\tsg\sps\perl\prod\man\man1'
man1ext='1'
man3dir='c:\mtapps\tsg\sps\perl\prod\man\man3'
man3direxp='c:\mtapps\tsg\sps\perl\prod\man\man3'
man3ext='3'
mips_type=''
mkdir='mkdir'
mmaptype='void *'
modetype='mode_t'
more='more /e'
multiarch=''
mv=''
myarchname='MSWin32'
mydomain=''
myhostname=''
myuname=''
n='-n'
netdb_hlen_type='int'
netdb_host_type='char *'
netdb_name_type='char *'
netdb_net_type='long'
nm=''
nm_opt=''
nm_so_opt=''
nonxs_ext='Errno'
nroff=''
nvEUformat='"E"'
nvFUformat='"F"'
nvGUformat='"G"'
nveformat='"e"'
nvfformat='"f"'
nvgformat='"g"'
nvsize='8'
nvtype='double'
o_nonblock='O_NONBLOCK'
obj_ext='.obj'
old_pthread_create_joinable=''
optimize='-O1 -MD -DNDEBUG'
orderlib='false'
osname='MSWin32'
osvers='4.0'
otherlibdirs=''
package='perl5'
pager='more /e'
passcat=''
patchlevel='6'
path_sep=';'
perl='perl'
perl5=''
perladmin=''
perllibs='  oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib
comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib  netapi32.lib
uuid.lib wsock32.lib mpr.lib winmm.lib  version.lib odbc32.lib odbccp32.lib

msvcrt.lib'
perlpath='c:\mtapps\tsg\sps\perl\prod\bin\perl.exe'
pg=''
phostname='hostname'
pidtype='int'
plibpth=''
pm_apiversion='5.005'
pmake=''
pr=''
prefix='c:\mtapps\tsg\sps\perl\prod'
prefixexp='c:'
privlib='c:\mtapps\tsg\sps\perl\prod\lib'
privlibexp='c:\mtapps\tsg\sps\perl\prod\lib'
prototype='define'
ptrsize='4'
quadkind='5'
quadtype='__int64'
randbits='15'
randfunc='rand'
randseedtype='unsigned'
ranlib='rem'
rd_nodata='-1'
revision='5'
rm='del'
rmail=''
runnm='true'
sPRIEUldbl='"E"'
sPRIFUldbl='"F"'
sPRIGUldbl='"G"'
sPRIXU64='"lX"'
sPRId64='"ld"'
sPRIeldbl='"e"'
sPRIfldbl='"f"'
sPRIgldbl='"g"'
sPRIi64='"li"'
sPRIo64='"lo"'
sPRIu64='"lu"'
sPRIx64='"lx"'
sSCNfldbl='"f"'
sched_yield=''
scriptdir='c:\mtapps\tsg\sps\perl\prod\bin'
scriptdirexp='c:\mtapps\tsg\sps\perl\prod\bin'
sed='sed'
seedfunc='srand'
selectminbits='32'
selecttype='Perl_fd_set *'
sendmail='blat'
sh='cmd /x /c'
shar=''
sharpbang='#!'
shmattype='void *'
shortsize='2'
shrpenv=''
shsharp='true'
sig_count='26'
sig_name='ZERO NUM01 INT QUIT ILL NUM05 NUM06 NUM07 FPE KILL NUM10 SEGV
NUM12 PIPE ALRM TERM NUM16 NUM17 NUM18 NUM19 CHLD BREAK ABRT STOP NUM24 CONT
CLD'
sig_name_init='"ZERO", "NUM01", "INT", "QUIT", "ILL", "NUM05", "NUM06",
"NUM07", "FPE", "KILL", "NUM10", "SEGV", "NUM12", "PIPE", "ALRM", "TERM",
"NUM16", "NUM17", "NUM18", "NUM19", "CHLD", "BREAK", "ABRT", "STOP",
"NUM24", "CONT", "CLD", 0'
sig_num='0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
20 0'
sig_num_init='0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17,
18, 19, 20, 21, 22, 23, 24, 25, 20, 0'
signal_t='void'
sitearch='c:\mtapps\tsg\sps\perl\prod\site\lib'
sitearchexp='c:\mtapps\tsg\sps\perl\prod\site\lib'
sitebin='c:\mtapps\tsg\sps\perl\prod\site\bin'
sitebinexp='c:\mtapps\tsg\sps\perl\prod\site\bin'
sitelib='c:\mtapps\tsg\sps\perl\prod\site\lib'
sitelib_stem=''
sitelibexp='c:\mtapps\tsg\sps\perl\prod\site\lib'
siteprefix='c:\mtapps\tsg\sps\perl\prod\site'
siteprefixexp='c:\mtapps\tsg\sps\perl\prod\site'
sizesize='4'
sizetype='size_t'
sleep=''
smail=''
so='dll'
sockethdr=''
socketlib=''
socksizetype='int'
sort='sort'
spackage='Perl5'
spitshell=''
src=''
ssizetype='int'
startperl='#!perl'
startsh='#!/bin/sh'
static_ext='DynaLoader'
stdchar='char'
stdio_base='((fp)->_base)'
stdio_bufsiz='((fp)->_cnt + (fp)->_ptr - (fp)->_base)'
stdio_cnt='((fp)->_cnt)'
stdio_filbuf=''
stdio_ptr='((fp)->_ptr)'
stdio_stream_array=''
strings='/usr/include/string.h'
submit=''
subversion='1'
sysman='/usr/man/man1'
tail=''
tar=''
tbl=''
tee=''
test=''
timeincl='/usr/include/sys/time.h '
timetype='time_t'
touch='touch'
tr=''
trnl='\012'
troff=''
u16size='2'
u16type='unsigned short'
u32size='4'
u32type='unsigned long'
u64size='8'
u64type='unsigned __int64'
u8size='1'
u8type='unsigned char'
uidformat='"ld"'
uidsign='-1'
uidsize='4'
uidtype='uid_t'
uname='uname'
uniq='uniq'
uquadtype='unsigned __int64'
use5005threads=''
use64bitall=''
use64bitint=''
usedl='define'
useithreads=''
uselargefiles=''
uselongdouble=''
usemorebits=''
usemultiplicity=''
usemymalloc='n'
usenm='false'
useopcode='true'
useperlio=''
useposix='true'
usesfio='false'
useshrplib='yes'
usesocks=''
usethreads=''
usevendorprefix=''
usevfork='false'
usrinc='/usr/include'
uuname=''
uvXUformat='"lX"'
uvoformat='"lo"'
uvsize='4'
uvtype='unsigned long'
uvuformat='"lu"'
uvxformat='"lx"'
vendorarch=''
vendorarchexp=''
vendorbin=''
vendorbinexp=''
vendorlib=''
vendorlib_stem=''
vendorlibexp=''
vendorprefix=''
vendorprefixexp=''
version='5.6.1'
versiononly=''
vi=''
voidflags='15'
xlibpth='/usr/lib/386 /lib/386'
xs_apiversion='5.6.0'
zcat=''
zip='zip'


@p5pRT
Copy link
Author

@p5pRT p5pRT commented Jun 30, 2008

From renee.baecker@smart-websolutions.de

Attached is a small patch for Pod​::Html (against Pod​::Html 1.09_04).

--
Renée Bäcker
renee.baecker@​smart-websolutions.de

XING​: http​://www.xing.com/profile/Renee_Baecker
Foo-Magazin​: http​://foo-magazin.de

@p5pRT
Copy link
Author

@p5pRT p5pRT commented Jun 30, 2008

From renee.baecker@smart-websolutions.de

Html.pm.patch
--- Html.pm.orig	2008-06-30 12:03:43.000000000 +0200
+++ Html.pm	2008-06-30 12:02:32.000000000 +0200
@@ -308,6 +308,7 @@
     # now convert this file
     my $after_item;             # set to true after an =item
     warn "Converting input file $Podfile\n" if $Verbose;
+    my $is_pre = 0;
     foreach my $i (0..$#poddata){
         $_ = $poddata[$i];
         $Paragraph = $i+1;
@@ -348,7 +349,18 @@
         else {
             next if $Ignore;
             next if @Begin_Stack && $Begin_Stack[-1] ne 'html';
-            print HTML and next if @Begin_Stack && $Begin_Stack[-1] eq 'html';
+
+            if( @Begin_Stack && $Begin_Stack[-1] eq 'html' and /<\/pre>/ ){
+                $is_pre = 0;
+            }
+
+            if( @Begin_Stack && $Begin_Stack[-1] eq 'html' and /<pre>.*?(?<!<\/pre>)/ ){
+                $is_pre = 1;
+            }
+
+            my $nl = $is_pre ? "\n\n" : "\n";
+            print HTML ($_,$nl) and next if @Begin_Stack && $Begin_Stack[-1] eq 'html';
+
             my $text = $_;
 
             # Open tag for definition list as we have something to put in it

@p5pRT
Copy link
Author

@p5pRT p5pRT commented Jun 30, 2008

From renee.baecker@smart-websolutions.de

Here it is...

Bram wrote​:

Citeren Renée Bäcker <renee.baecker@​smart-websolutions.de>​:

Attached is a small patch for Pod​::Html (against Pod​::Html 1.09_04).

Can you also add a test for it?

Kind regards,

Bram

--
Renée Bäcker
renee.baecker@​smart-websolutions.de

XING​: http​://www.xing.com/profile/Renee_Baecker
Foo-Magazin​: http​://foo-magazin.de

@p5pRT
Copy link
Author

@p5pRT p5pRT commented Jun 30, 2008

From renee.baecker@smart-websolutions.de

use strict;
use warnings;
use lib qw(/home/rbaecker/cpan/lib/perl5/5.8.8/);
use Pod​::Html;
use Config;
use Test​::More tests => 1;

my $out = $$ . '.html';
pod2html("--infile=$0", "--outfile=$out");

my $admin = $Config{'perladmin'};

my $expected = <<"EXPECTED";
<?xml version="1.0" ?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http​://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http​://www.w3.org/1999/xhtml">
<head>
<title>9385.pl - A testscript for bug #9385</title>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<link rev="made" href="mailto​:$admin" />
</head>

<body style="background-color​: white">

<!-- INDEX BEGIN -->
<div name="index">
<p><a name="__index__"></a></p>

<ul>

  <li><a href="#name">NAME</a></li>
  <ul>

  <li><a href="#testcase">TESTCASE</a></li>
  </ul>

</ul>

<hr name="index" />
</div>
<!-- INDEX END -->

<p>
</p>
<h1><a name="name">NAME</a></h1>
<p>9385.pl - A testscript for bug #9385</p>
<p>
</p>
<h2><a name="testcase">TESTCASE</a></h2>
<p>The following testcase shows the bug</p>
<p>in Pod​::Html</p>
<tt>
<pre>
#include <stdio.h>

int main(int argc,char *argv[]) {

  printf("Hellow World\\n");
  return 0;
}
</pre>
</tt>
this is a test line in
an HTML section of this Pod.

</body>

</html>
EXPECTED

my $check;

{
  local $/;
  open my $fh, '<', $out or die "Cannot open $out​: $!";
  $check = <$fh>;
  close $fh;
}

$check =~ s/\r?\n/\n/g;
$expected =~ s/\r?\n/\n/g;

is( $check, $expected );

1 while unlink $out;
1 while unlink "pod2htmd.tmp";
1 while unlink "pod2htmi.tmp";

=head1 NAME

9385.pl - A testscript for bug #9385

=head2 TESTCASE

The following testcase shows the bug

in Pod​::Html

=begin html

<tt>
<pre>
#include <stdio.h>

int main(int argc,char *argv[]) {

  printf("Hellow World\n");
  return 0;
}
</pre>
</tt>

this is a test line in

an HTML section of this Pod.

=end html

@p5pRT
Copy link
Author

@p5pRT p5pRT commented Jul 6, 2008

From david@landgren.net

Renée Bäcker a écrit :

Attached is a small patch for Pod​::Html (against Pod​::Html 1.09_04).

I've just discovered this message, as I summarise a fortnight's worth of
  traffic (I needed a break).

Anyway, 1.09_04 is on CPAN, but not in blead, since the first step of
detabbing the source and pushing the POD to the end of the source file
(which is what I would need to do in order to stay sane) was greeted
with shrieks of horror that someone would dare reformat TomC's hallowed
code.

So, at the moment, development is stalled until I hear otherwise.

David

@p5pRT
Copy link
Author

@p5pRT p5pRT commented Mar 27, 2012

From @jkeenan

I am attaching what I believe is a very slightly cleaned-up version of
the test file supplied by Renee_Baecker four years ago. The bug appears
to persist when tested with Perl 5.14.2.

@p5pRT
Copy link
Author

@p5pRT p5pRT commented Mar 27, 2012

From @jkeenan

use strict;
use warnings;
use Pod​::Html;
use Config;
use Test​::More tests => 1;

my $out = $$ . '.html';
pod2html("--infile=$0", "--outfile=$out");

my $admin = $Config{'perladmin'};

my $expected = <<"EXPECTED";
<?xml version="1.0" ?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http​://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http​://www.w3.org/1999/xhtml">
<head>
<title>9385.pl - A testscript for bug #9385</title>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<link rev="made" href="mailto​:$admin" />
</head>

<body style="background-color​: white">

<!-- INDEX BEGIN -->
<div name="index">
<p><a name="__index__"></a></p>

<ul>

  <li><a href="#name">NAME</a></li>
  <ul>

  <li><a href="#testcase">TESTCASE</a></li>
  </ul>

</ul>

<hr name="index" />
</div>
<!-- INDEX END -->

<p>
</p>
<h1><a name="name">NAME</a></h1>
<p>9385.pl - A testscript for bug #9385</p>
<p>
</p>
<h2><a name="testcase">TESTCASE</a></h2>
<p>The following testcase shows the bug</p>
<p>in Pod​::Html</p>
<tt>
<pre>
#include <stdio.h>

int main(int argc,char *argv[]) {

  printf("Hellow World\\n");
  return 0;
}
</pre>
</tt>
this is a test line in
an HTML section of this Pod.

</body>

</html>
EXPECTED

my $check;

{
  local $/;
  open my $fh, '<', $out or die "Cannot open $out​: $!";
  $check = <$fh>;
  close $fh;
}

$check =~ s/\r?\n/\n/g;
$expected =~ s/\r?\n/\n/g;

is( $check, $expected );

1 while unlink $out;
1 while unlink "pod2htmd.tmp";
1 while unlink "pod2htmi.tmp";

=head1 NAME

9385.pl - A testscript for bug #9385

=head2 TESTCASE

The following testcase shows the bug

in Pod​::Html

=begin html

<tt>
<pre>
#include <stdio.h>

int main(int argc,char *argv[]) {

  printf("Hellow World\n");
  return 0;
}
</pre>
</tt>

this is a test line in

an HTML section of this Pod.

=end html

@p5pRT
Copy link
Author

@p5pRT p5pRT commented Mar 27, 2012

From @jkeenan

On Mon Mar 26 18​:10​:25 2012, jkeenan wrote​:

I am attaching what I believe is a very slightly cleaned-up version of
the test file supplied by Renee_Baecker four years ago. The bug appears
to persist when tested with Perl 5.14.2.

The original bug report -- back in 2002! -- summarized the problem like
this​:

#####
In Pod​::HTML 1.04, =begin html/=end html eats lines that consist of
single newlines, i.e. "\n". This happens because the sub clean_data is
applied to the body of text before parsing. This converts the text into
'paragraphs', text delimited by blank lines, which discards the delimiter.
#####

There no longer appears to be a subroutine called clean_data() in
Pod​::Html. But, as the test file attached in my previous post
demonstrates, the bug is still there.

Thank you very much.
Jim Keenan

@p5pRT
Copy link
Author

@p5pRT p5pRT commented Nov 17, 2012

From matt.follett@gmail.com

It looks like this ticket should probably be moved over to Pod​::Simple. I think this issue may be
somewhere in Pod​::Simple​::BlackBox, but the comments started to get a little too Lovecraftian
for me.

On Mon Mar 26 18​:28​:49 2012, jkeenan wrote​:

On Mon Mar 26 18​:10​:25 2012, jkeenan wrote​:

I am attaching what I believe is a very slightly cleaned-up version of
the test file supplied by Renee_Baecker four years ago. The bug appears
to persist when tested with Perl 5.14.2.

The original bug report -- back in 2002! -- summarized the problem like
this​:

#####
In Pod​::HTML 1.04, =begin html/=end html eats lines that consist of
single newlines, i.e. "\n". This happens because the sub clean_data is
applied to the body of text before parsing. This converts the text into
'paragraphs', text delimited by blank lines, which discards the delimiter.
#####

There no longer appears to be a subroutine called clean_data() in
Pod​::Html. But, as the test file attached in my previous post
demonstrates, the bug is still there.

Thank you very much.
Jim Keenan

@p5pRT
Copy link
Author

@p5pRT p5pRT commented Jan 4, 2014

From @jkeenan

On Sat Nov 17 15​:58​:57 2012, mfollett wrote​:

It looks like this ticket should probably be moved over to
Pod​::Simple. I think this issue may be
somewhere in Pod​::Simple​::BlackBox, but the comments started to get a
little too Lovecraftian
for me.

I agree. I have filed a ticket in Pod-Simple's own bug tracker at​: https://rt.cpan.org/Ticket/Display.html?id=91851

Closing this ticket.

Thank you very much.
Jim Keenan

@p5pRT
Copy link
Author

@p5pRT p5pRT commented Jan 4, 2014

@jkeenan - Status changed from 'open' to 'rejected'

@p5pRT p5pRT closed this Jan 4, 2014
@p5pRT
Copy link
Author

@p5pRT p5pRT commented Jan 11, 2015

From dwheeler@cpan.org

I believe this issue is fixed as of http​://github.com/theory/pod-simple/commits/bb23b85. Additional testing would be much appreciated!

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Projects
None yet
Linked pull requests

Successfully merging a pull request may close this issue.

None yet
2 participants