[ID 20000125.004] Text::Wrap generates lines out of order

[WSTR Web Tools <webtools@sudweb1.ed.ray.com>]

This is a bug report for perl from webtools@sudweb1.sels.res.ray.com,
generated with the help of perlbug 1.26 running under perl 5.00503.


-----------------------------------------------------------------
Text::Wrap, when fed a string with newlines in it, sometimes 
produces lines that are not in the original order.

Unfortunately, the problem is very difficult to reproduce.  But I 
do have a fix for Wrap.pm:

### BEGIN PATCH TO Wrap.pm
36c36
<               if ($t =~ s/^([^\n]{0,$ll})($break|\Z(?!\n))//xm) {
---
>               if ($t =~ s/^([^\n]{0,$ll})($break|\Z(?!\n))//x) {
### END OF PATCH

I can be reached at <mlh@swl.msd.ray.com>.
-----------------------------------------------------------------

---
Site configuration information for perl 5.00503:

Configured by webtools at Tue Jan 18 19:03:15 EST 2000.

Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration:
  Platform:
    osname=solaris, osvers=2.6, archname=sun4-solaris
    uname='sunos sudweb1 5.6 generic_105181-07 sun4m sparc sunw,sparcstation-5 '
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef useperlio=undef d_sfio=undef
  Compiler:
    cc='/usr/local/bin/gcc', optimize='-O', gccversion=2.7.2.3
    cppflags=''
    ccflags =''
    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
    alignbytes=8, usemymalloc=y, prototype=define
  Linker and Libraries:
    ld='/usr/local/bin/gcc', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib /usr/ccs/lib
    libs=-lsocket -lnsl -ldl -lm -lc -lcrypt
    libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
    cccdlflags='-fPIC', lddlflags='-G -L/usr/local/lib'

Locally applied patches:
    

---
@INC for perl 5.00503:
    /local/app/perl/lib/5.00503/sun4-solaris
    /local/app/perl/lib/5.00503
    /local/app/perl/lib/site_perl/5.005/sun4-solaris
    /local/app/perl/lib/site_perl/5.005
    .

---
Environment for perl 5.00503:
    HOME=/home/fridge/webtools
    LANG (unset)
    LANGUAGE (unset)
    LD_LIBRARY_PATH=/local/app/qt/lib:/local/app/lib:/local/gnu/lib:/usr/lib:/usr/openwin/lib:/usr/ucblib:/local/app/oracle/product/7.3.2/lib
    LOGDIR (unset)
    PATH=/local/app/qt/bin:/local/app/bin:/local/gnu/bin:/usr/bin:.:/home/fridge/webtools/bin:/usr/bin:/bin:/usr/openwin/bin:/etc:/usr/ccs/bin:/usr/ucb:/usr/sbin:/sbin:/usr/etc:.:/local/app/oracle/product/7.3.2/bin:/local/app/lib/python1.5/site-packages/Fnorb/script:/local/app/jdk1.2.1/bin:/local/app/apache/bin:/usr/local/bin:.:/usr/ucb/bin:/usr/ucb:/home/fridge/webtools/bin:/home/fridge/webtools/gnu/bin:/usr/local/bin:/local/app/perl/bin:/usr/atria/bin:/local/gnu/bin
    PERL_BADLANG (unset)
    SHELL=/bin/csh

---

[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]

---