https://bugzilla.redhat.com/show_bug.cgi?id=1351172

            Bug ID: 1351172
           Summary: perl.req gets exponentially slow in a certain scenario
           Product: Fedora
           Version: 22
         Component: perl-generators
          Assignee: jples...@redhat.com
          Reporter: rel...@redhat.com
        QA Contact: extras...@fedoraproject.org
                CC: jples...@redhat.com,
                    perl-devel@lists.fedoraproject.org, ppi...@redhat.com



Description of problem:

The problem is perhaps best described by showing examples (see below) but given
certain input, perl.req gets really, really slow. This came up when I went to
upgrade the `cloc` package and `rpmbuild` seemingly got stuck and never
finished. I dug into it a tiny bit and got a smaller reproducer (again, see
below).

When I add letters to the variable name here perl.req gets *really* slow:

$ cat asdf
sub demo {
  ++$foo if  /\s*<<'/;
}


$ time /usr/lib/rpm/perl.req asdf
real    0m0.361s
user    0m0.358s
sys    0m0.003s

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

$ cat asdf
sub demo {
  ++$foobar if  /\s*<<'/;
}


$ time /usr/lib/rpm/perl.req asdf
real    0m2.891s
user    0m2.884s
sys    0m0.003s

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

$ cat asdf
sub demo {
  ++$foobarbaz if  /\s*<<'/;
}


$ time /usr/lib/rpm/perl.req asdf
real    0m23.902s
user    0m23.835s
sys    0m0.019s


Version-Release number of selected component (if applicable):
perl-generators-1.06-1.fc22.noarch

How reproducible:
I haven't tested on newer Fedora. I'm planning on upgrading to F23 or F24 this
week, will be able to report then.


Steps to Reproduce:
1. Copypaste the above examples into a file
2. Run `/usr/lib/rpm/perl.req the_file`
3. ???
4. Profit

Actual results:
perl.req becomes very slow


Expected results:
perl.req doesn't become very slow. ;)

Additional info:
Happy to provide any other information, just let me know what you need.

-- 
You are receiving this mail because:
You are on the CC list for the bug.
--
Fedora Extras Perl SIG
http://www.fedoraproject.org/wiki/Extras/SIGs/Perl
perl-devel mailing list
perl-devel@lists.fedoraproject.org
https://lists.fedoraproject.org/admin/lists/perl-devel@lists.fedoraproject.org

Reply via email to