http://www.perlmonks.org?node_id=999738


in reply to Script using Getopt::Long running endlessly after beeing packaged by pp

Instead of large comment MAIN a sub Main

Instead of  defined($type) == '0' write  !defined $type or  not defined $type

Instead of  defined($date) == '1' write  defined($date) or defined $data

So without changing too much of your program write that as

Replies are listed 'Best First'.
Re^2: Script using Getopt::Long running endlessly after beeing packaged by pp
by HJO (Acolyte) on Oct 18, 2012 at 14:52 UTC

    Well, thanks for the formatting tips, guess I'll pass Perl::Critic much easier now^^