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

Text::Wrap generates lines out of order #1081

Closed
p5pRT opened this issue Jan 25, 2000 · 1 comment
Closed

Text::Wrap generates lines out of order #1081

p5pRT opened this issue Jan 25, 2000 · 1 comment

Comments

@p5pRT
Copy link

p5pRT commented Jan 25, 2000

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

Searchable as RT2034$

@p5pRT
Copy link
Author

p5pRT commented Jan 25, 2000

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

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

No branches or pull requests

1 participant