On Mon, Jan 21, 2002 at 12:45:16PM -0800, Paul Makepeace wrote: > > > > Until the day that $cond1 is true and action1() returns '0', > > when it breaks mysteriously. > > Then you won't like,
No, not a lot :) > #!/usr/bin/perl -wln > > next unless /^[^#]*<VirtualHost/../^[^#]*<\/VirtualHost/ && run_analog(); That doesn't need to be as obfuscated as that, you've placed the whitespace to suggest that .. binds more tightly than &&, and to hide the fact that .. is the heart of it. You bad man. How about: next unless /^[^#]*<VirtualHost/ .. /^[^#]*<\/VirtualHost/ && (run_analog(),1) ; -- Nick