From root@paranormal.o.se

This is a bug report for perl from jonas@​paranormal.o.se,
generated with the help of perlbug 1.28 running under perl v5.6.0.

op/lex_assign........FAILED at test 149

But running ./perl harness doesn't find a problem​:

op/lex_assign.......ok

Rerunning 'make test' also works fine. './perl op/groups.t' also goes well.

But rerunning 'make test' the third time gives the same result​:

op/lex_assign........FAILED at test 149

Everything else seems to be working fine.

Flags​:
  category=install
  severity=medium

Site configuration information for perl v5.6.0​:

Configured by jonas at Sat Apr 1 02​:14​:50 CEST 2000.

Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration​:
  Platform​:
  osname=linux, osvers=2.2.12, archname=i586-linux-thread-multi
  uname='linux astral.paranormal.o.se 2.2.12 #1 thu oct 14 09​:29​:24 est 1999 i586 unknown '
  config_args='-Uinstallusrbinperl -Dusethreads -des'
  hint=recommended, useposix=true, d_sigaction=define
  usethreads=define use5005threads=undef useithreads=define usemultiplicity=define
  useperlio=undef d_sfio=undef uselargefiles=define
  use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef
  Compiler​:
  cc='cc', optimize='-O2', gccversion=2.95.2 20000220 (Debian GNU/Linux)
  cppflags='-D_REENTRANT -fno-strict-aliasing -I/usr/local/include'
  ccflags ='-D_REENTRANT -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
  stdchar='char', d_stdstdio=define, usevfork=false
  intsize=4, longsize=4, ptrsize=4, doublesize=8
  d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
  ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
  alignbytes=4, usemymalloc=n, prototype=define
  Linker and Libraries​:
  ld='cc', ldflags =' -L/usr/local/lib'
  libpth=/usr/local/lib /lib /usr/lib
  libs=-lnsl -lndbm -lgdbm -ldb -ldl -lm -lpthread -lc -lposix -lcrypt
  libc=/lib/libc-2.1.3.so, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking​:
  dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
  cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'

Locally applied patches​:
 

@​INC for perl v5.6.0​:
  lib
  /usr/local/lib/perl5/5.6.0/i586-linux-thread-multi
  /usr/local/lib/perl5/5.6.0
  /usr/local/lib/perl5/site_perl/5.6.0/i586-linux-thread-multi
  /usr/local/lib/perl5/site_perl/5.6.0
  /usr/local/lib/perl5/site_perl
  .

Environment for perl v5.6.0​:
  HOME=/root
  LANG (unset)
  LANGUAGE (unset)
  LD_LIBRARY_PATH (unset)
  LOGDIR (unset)
  PATH=/sbin​:/usr/sbin​:/usr/local/sbin​:/sbin​:/bin​:/usr/sbin​:/usr/bin​:/usr/bin/X11​:/usr/local/sbin​:/usr/local/bin​:/usr/X11R6/bin​:/root/bin​:.
  PERL_BADLANG (unset)
  SHELL=/bin/bash

From [Unknown Contact. See original ticket]

root@​paranormal.o.se (lists.p5p)​:

op/lex_assign........FAILED at test 149
But running ./perl harness doesn't find a problem​:
op/lex_assign.......ok

Rerunning 'make test' also works fine. './perl op/groups.t' also goes well.
But rerunning 'make test' the third time gives the same result​:
op/lex_assign........FAILED at test 149

Thank gosh. I was starting to think it was my imagination.

From [Unknown Contact. See original ticket]

root writes​:

This is a bug report for perl from jonas@​paranormal.o.se,
generated with the help of perlbug 1.28 running under perl v5.6.0.

-----------------------------------------------------------------

op/lex_assign........FAILED at test 149

I'm not sure that this would give better diagnostic in this situation​:

--- ./t/op/lex_assign.t~	Tue Feb 15 11:40:21 2000
+++ ./t/op/lex_assign.t	Sat Apr  1 14:21:10 2000
@@ -112,11 +112,12 @@ for (@INPUT) {
   $ord++;
   ($op, undef, $comment) = /^([^\#]+)(\#\s+(.*))?/;
   $comment = $op unless defined $comment;
+  chomp;
   $op = "$op==$op" unless $op =~ /==/;
   ($op, $expectop) = $op =~ /(.*)==(.*)/;
   
   $skip = ($op =~ /^'\?\?\?'/ or $comment =~ /skip\(.*\Q$^O\E.*\)/i)
-	  ? "skip" : "not";
+	  ? "skip" : "# '$_'\nnot";
   $integer = ($comment =~ /^i_/) ? "use integer" : '' ;
   (print "#skipping $comment:\nok $ord\n"), next if $skip eq 'skip';
   
@@ -137,7 +138,7 @@ EOE
       print "# skipping $comment: unimplemented:\nok $ord\n";
     } else {
       warn $@;
-      print "not ok $ord\n";
+      print "# '$_'\nnot ok $ord\n";
     }
   }
 }
@@ -146,6 +147,7 @@ for (@simple_input) {
   $ord++;
   ($op, undef, $comment) = /^([^\#]+)(\#\s+(.*))?/;
   $comment = $op unless defined $comment;
+  chomp;
   ($operator, $variable) = /^\s*(\w+)\s*\$(\w+)/ or warn "misprocessed '$_'\n";
   eval <<EOE;
   local \$SIG{__WARN__} = \\&wrn;
@@ -164,7 +166,7 @@ EOE
       print "# skipping $comment: syntax not good for selfassign:\nok $ord\n";
     } else {
       warn $@;
-      print "not ok $ord\n";
+      print "# '$_'\nnot ok $ord\n";
     }
   }
 }

From [Unknown Contact. See original ticket]

root writes​:

op/lex_assign........FAILED at test 149

In fact 149 can be de-indexed​: it is sleep(1). Apparently, it may
give different results - but probably not related to the "lex" part?

Ilya

From @smpeters

[RT_System - Sat Apr 01 03​:26​:20 2000]​:

root writes​:

op/lex_assign........FAILED at test 149

In fact 149 can be de-indexed​: it is sleep(1). Apparently, it may
give different results - but probably not related to the "lex" part?

Ilya

Not a problem? OK, closing :)

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