FAQ
Odd little regexp causes a segfault. Original report can be found at:
http://bugzilla.redhat.com/bugzilla/show_bug.cgi?id=69254

Varying $lines may be necessary, seemingly dependant upon the system
in question.

Chip

#!/usr/bin/perl -w
use strict;

my $lines = 5906;

$_ = "foo\n" x $lines . "\n\n*** EOOH ***\n" . "foo\n" x $lines;

/^((?:.+\n)*)\n*\*\*\* EOOH \*\*\*\n((?:.+\n)*)\n+/;


--
Chip Turner cturner@redhat.com
Red Hat, Inc.

Search Discussions

  • Arthur Bergman at Jul 23, 2002 at 7:37 am

    On tisdag, juli 23, 2002, at 08:06 , Chip Turner wrote:
    Odd little regexp causes a segfault. Original report can be found at:
    http://bugzilla.redhat.com/bugzilla/show_bug.cgi?id=69254

    Varying $lines may be necessary, seemingly dependant upon the system
    in question.

    Chip

    #!/usr/bin/perl -w
    use strict;

    my $lines = 5906;

    $_ = "foo\n" x $lines . "\n\n*** EOOH ***\n" . "foo\n" x $lines;

    /^((?:.+\n)*)\n*\*\*\* EOOH \*\*\*\n((?:.+\n)*)\n+/;


    --
    Chip Turner cturner@redhat.com
    Red Hat, Inc.
    Blowing the stack?

    Arthur

Related Discussions

Discussion Navigation
viewthread | post
Discussion Overview
groupperl5-porters @
categoriesperl
postedJul 23, '02 at 6:06a
activeJul 23, '02 at 7:37a
posts2
users2
websiteperl.org

2 users in discussion

Chip Turner: 1 post Arthur Bergman: 1 post

People

Translate

site design / logo © 2022 Grokbase