Quote

kabel@kabelskiste$ cat bla.pl
#!/usr/bin/perl
exec( 'echo bla' ) || print STDERR "blubb";
kabel@kabelskiste$ cat bla2.pl
#!/usr/bin/perl
exec( 'echo bla' ) or print STDERR "blubb";
kabel@kabelskiste$ perl -MO=Concise bla.pl > bla_concise
bla.pl syntax OK
kabel@kabelskiste$ perl -MO=Concise bla2.pl > bla2_concise
bla2.pl syntax OK
kabel@kabelskiste$ diff bla_concise bla2_concise
3c3
< 2 <;> nextstate(main 1 bla.pl:2) v ->3
---
> 2 <;> nextstate(main 1 bla2.pl:2) v ->3
kabel@kabelskiste$

concise