develooper Front page | perl.perl5.porters | Postings from March 2011

[perl #85964] Bleadperl v5.13.10-341-gcf34198 breaks NWIGER/CGI-FormBuilder-3.0501.tgz

From:
perlbug-followup
Date:
March 11, 2011 23:52
Subject:
[perl #85964] Bleadperl v5.13.10-341-gcf34198 breaks NWIGER/CGI-FormBuilder-3.0501.tgz
Message ID:
rt-3.6.HEAD-4136-1299916355-863.85964-75-0@perl.org
# New Ticket Created by  (Andreas J. Koenig) 
# Please include the string:  [perl #85964]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=85964 >


git bisect:
-----------

  cf34198ebe3dd876d67c10caa9acf491ad2a0c51 is the first bad commit
  commit cf34198ebe3dd876d67c10caa9acf491ad2a0c51
  Author: Karl Williamson <public@khwilliamson.com>
  Date:   Tue Mar 8 15:28:05 2011 -0700

  regcomp.c: Change start class init for /l

  Before /l was added, locale only applied to regular expressions as a
  whole. Now it can be subsections, so the flag for allowing it should
  be treated as any other flag.

example fail report:
--------------------

  cpantesters do not have a fail report yet. Excerpt of test output from

  Note: PERL_TEST_DIFF="diff -u" make test TEST_FILES=t/1a-generate.t

  #                                                      
  #   diff -u test-exp-MY0f1 test-got-Eux3C              
  #   --- test-exp-MY0f1  2011-03-12 08:49:09.000000000 +0100
  #   +++ test-got-Eux3C  2011-03-12 08:49:09.000000000 +0100
  #   @@ -6,7 +6,7 @@                                    
  #                                                      
  #        // email: standard text, hidden, password, or textarea box
  #        var email = form.elements['email'].value;     
  #   -    if (email != null && email != "" && ! email.match(/^[\w\-\+\._]+\@[a-zA-Z0-9][-a-zA-Z0-9\.]*\.[a-zA-Z]+$/)) {                 
  #   +    if (email != null && email != "" && email /^[\w\-\+\._]+\@[a-zA-Z0-9][-a-zA-Z0-9\.]*\.[a-zA-Z]+$/) {                          
  #            alertstr += '- Invalid entry for the "Email" field\n';
  #            invalid++;                                
  #            invalid_fields.push('email');             
  #  t/1a-generate.t line 590 is:     my $ok  = ok($ren, $out);

perl -V:
--------

  Summary of my perl5 (revision 5 version 13 subversion 10) configuration:
    Commit id: cf34198ebe3dd876d67c10caa9acf491ad2a0c51
    Platform:
      osname=linux, osvers=2.6.32-5-amd64, archname=x86_64-linux
      uname='linux k81 2.6.32-5-amd64 #1 smp wed jan 12 03:40:32 utc 2011 x86_64 gnulinux '
      config_args='-Dprefix=/home/src/perl/repoperls/installed-perls/perl/v5.13.10-341-gcf34198 -Dinstallusrbinperl=n -Uversiononly -Dusedevel -des -Ui_db -Uuseithreads -Uuselongdouble'
      hint=recommended, useposix=true, d_sigaction=define
      useithreads=undef, usemultiplicity=undef
      useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
      use64bitint=define, use64bitall=define, uselongdouble=undef
      usemymalloc=n, bincompat5005=undef
    Compiler:
      cc='cc', ccflags ='-fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
      optimize='-O2',
      cppflags='-fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include'
      ccversion='', gccversion='4.4.5', gccosandvers=''
      intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678
      d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
      ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
      alignbytes=8, prototype=define
    Linker and Libraries:
      ld='cc', ldflags =' -fstack-protector -L/usr/local/lib'
      libpth=/usr/local/lib /lib /usr/lib /lib64 /usr/lib64
      libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lc -lgdbm_compat
      perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc
      libc=/lib/libc-2.11.2.so, so=so, useshrplib=false, libperl=libperl.a
      gnulibc_version='2.11.2'
    Dynamic Linking:
      dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
      cccdlflags='-fPIC', lddlflags='-shared -O2 -L/usr/local/lib -fstack-protector'


  Characteristics of this binary (from libperl): 
    Compile-time options: PERL_DONT_CREATE_GVSV PERL_MALLOC_WRAP PERL_USE_DEVEL
                          USE_64_BIT_ALL USE_64_BIT_INT USE_LARGE_FILES
                          USE_PERLIO USE_PERL_ATOF
    Built under linux
    Compiled at Mar 12 2011 07:46:31
    @INC:
      /home/src/perl/repoperls/installed-perls/perl/v5.13.10-341-gcf34198/lib/site_perl/5.13.10/x86_64-linux
      /home/src/perl/repoperls/installed-perls/perl/v5.13.10-341-gcf34198/lib/site_perl/5.13.10
      /home/src/perl/repoperls/installed-perls/perl/v5.13.10-341-gcf34198/lib/5.13.10/x86_64-linux
      /home/src/perl/repoperls/installed-perls/perl/v5.13.10-341-gcf34198/lib/5.13.10
      .


-- 
andreas




nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About