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

[CoVAX]

Thank you for this useful info.

It also made me think of this question: Is there a way to dynamically disable 'use strict' and/or 'use warnings' at run-time?

E.g. either entirely, or perhaps for a block:

...
#   disable 'use strict' and/or 'use warnings'
do_some_code_known_to_cause_warnings();
# re-enable 'use strict' and/or 'use warnings'
...

[Happy-the-monk]

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;

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

Cheers, Sören

[BrowserUk]

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.

[Laurent_R]

You can use the no strict or no warnings pragmas. It is usually better to disable only some of the strictures or of the warnings, for example:

no strict 'vars';
no warnings 'recursion';

and only for a limited scope.

Update: fixed wrong formatting tags.

[BrowserUk]

That's another way to go, provided that the code with the warnings doesn't do anything permanent, like write to a file.

(But then, I wonder at the purpose of an END block that doesn't do anything permanent?)