1*91f110e0Safresh1#!./perl 2*91f110e0Safresh1 3*91f110e0Safresh1# This tests that the (?[...]) feature doesn't introduce unexpected 4*91f110e0Safresh1# differences from regular bracketed character classes. It just sets a flag 5*91f110e0Safresh1# and calls regexp.t which will run through its test suite, modifiying the 6*91f110e0Safresh1# tests to use (?[...]) instead wherever the test uses []. 7*91f110e0Safresh1 8*91f110e0Safresh1BEGIN { $regex_sets = 1; } 9*91f110e0Safresh1for $file ('./re/regexp.t', './t/re/regexp.t', ':re:regexp.t') { 10*91f110e0Safresh1 if (-r $file) { 11*91f110e0Safresh1 do $file or die $@; 12*91f110e0Safresh1 exit; 13*91f110e0Safresh1 } 14*91f110e0Safresh1} 15*91f110e0Safresh1die "Cannot find ./re/regexp.t or ./t/re/regexp.t\n"; 16