[Omaha.pm] (?:pattern)

[Jay Hannah <jhannah@mutationgrid.com>]

Huh. Why bother with the  ?:  chars here?

  foreach $service (@services) {
    my ($service_name, $i) = split(/,/, $service);
    $error .= &validate($service_name,$i,%in) if ($service_name =~ /^(?:INS_(?:CHC|CRS|PLV))$/);
  }

http://perldoc.perl.org/perlre.html

Since the author isn't using the backreferences anyway, why not just

   /^INS_(CHC|CRS|PLV)$/

Isn't that the same thing and easier to read?

I should probably write some little programs to test it, but I'm feeling lazy.  :)

Jay Hannah
Software Architect
jhannah@mutationgrid.com | http://mutationgrid.com | 1-402-598-7782