Re^3: Want END block to run except when usage()/--help invocation

Is there a way to dynamically disable 'use strict' and/or 'use warnings' at run-time?

~~Do not use the -w switch then, use warnings instead:~~ # <- edited, see BrowserUK's correct comment below.

use strict;
use warnings;
# ...

no strict;
no warnings 'uninitialized'; # only specific warnings switched off.
# un-refined code
use warnings 'uninitialized'; # escape to safety
use strict;
[download]

You don't need to switch off strict for the case in question, though.

Cheers, Sören

Créateur des bugs mobiles - let loose once, run everywhere.
(hooked on the Perl Programming language)

Comment on Re^3: Want END block to run except when usage()/--help invocation Select or Download Code

Replies are listed 'Best First'.
Re^4: Want END block to run except when usage()/--help invocation by BrowserUk (Patriarch) on Feb 27, 2015 at 09:31 UTC
Do not use the -w switch then, No warnings work just as well with -w: `C:\test>perl -wE"my $x; say $x; { no warnings 'uninitialized'; say $x +}" Use of uninitialized value $x in say at -e line 1.` [download] With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". I'm with torvalds on this In the absence of evidence, opinion is indistinguishable from prejudice. Agile (and TDD) debunked	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: Want END block to run except when usage()/--help invocation
by BrowserUk (Patriarch) on Feb 27, 2015 at 09:31 UTC

Do not use the -w switch then,

No warnings work just as well with -w:

C:\test>perl -wE"my $x; say $x; { no warnings 'uninitialized'; say $x 
+}"
Use of uninitialized value $x in say at -e line 1.
[download]

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority". I'm with torvalds on this

In the absence of evidence, opinion is indistinguishable from prejudice. Agile (and TDD) debunked

[reply]
[d/l]