Text::Wrap generates lines out of order

[p5pRT]

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

Searchable as RT2034$

[p5pRT]

From webtools@sudweb1.ed.ray.com

---

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