Bug #44765 for Expect: Expect bug - first pattern lost when specifying options

Thu Apr 02 16:07:52 2009 dhester [...] yahoo-inc.com - Ticket created

Subject:	Expect bug - first pattern lost when specifying options
Date:	Thu, 02 Apr 2009 16:06:07 -0400
To:	bug-expect [...] rt.cpan.org
From:	David Hester <dhester [...] yahoo-inc.com>

example: echo -e "\n\nfirst\nfirst\nsecond\nthird" | perl -e 'use strict;use Expect;my $exp = Expect->exp_init(\*STDIN);$exp->expect("10","-re",[qr/first/i, sub {print "found first\n";exp_continue;}], [qr/second/i, sub {print "found second\n";exp_continue;}], [qr/third/i, sub {print "found third\n";exp_continue;}]);' prints: found second found third remove the "-re" option and it finds the "first" pattern: echo -e "\n\nfirst\nfirst\nsecond\nthird" | perl -e 'use strict;use Expect;my $exp = Expect->exp_init(\*STDIN);$exp->expect("10",[qr/first/i, sub {print "found first\n";exp_continue;}], [qr/second/i, sub {print "found second\n";exp_continue;}], [qr/third/i, sub {print "found third\n";exp_continue;}]);' prints: found first found first found second found third Thanks, David Hester

Sat Mar 31 02:20:21 2012 bob [...] staats.me - Correspondence added

From:

bob [...] staats.me

I know this is old but I was going through the bugs to see what fixes I may need. I think this paticular case is probably an issue with the syntax used. I believe the position of the brackets causes the problem here. You have: Show quoted text

>> "-re",[qr/first/i, sub {print "found first\n";exp_continue;}],

If I put "-re" inside the square brackets: ["-re", qr/first/i, sub {print "found first\n";exp_continue;}], Or use no square brackets on that line: "-re", qr/first/i, sub {print "found first\n";exp_continue;}, It works OK in both cases. ############ # Option 1 # ############ echo -e "\n\nfirst\nfirst\nsecond\nthird" | perl -e 'use strict; use Expect; my $exp = Expect->exp_init(\*STDIN);$exp->expect("10", ["-re", qr/first/i, sub {print "found first\n";exp_continue;}], [qr/second/i, sub {print "found second\n";exp_continue;}], [qr/third/i, sub {print "found third\n";exp_continue;}]);' prints: found first found first found second found third ############ # Option 2 # ############ echo -e "\n\nfirst\nfirst\nsecond\nthird" | perl -e 'use strict; use Expect; my $exp = Expect->exp_init(\*STDIN);$exp->expect("10", "-re", qr/first/i, sub {print "found first\n";exp_continue;}, [qr/second/i, sub {print "found second\n";exp_continue;}], [qr/third/i, sub {print "found third\n";exp_continue;}]);' prints: found first found first found second found third

Sat Mar 31 02:20:22 2012 The RT System itself - Status changed from 'new' to 'open'

Mon Jul 30 12:05:59 2012 RGiersig [...] cpan.org - Correspondence added

RT-Send-CC:

bob [...] staats.me

Seems like a doc bug to me, no code change required. -- RGiersig@cpan.org

Mon Jul 30 12:06:00 2012 RGiersig [...] cpan.org - Status changed from 'open' to 'rejected'