########
# strict behaviour, without any extra references
-use warning 'untie';
-#local $^W = 1 ;
+use warnings 'untie';
use Tie::Hash ;
tie %h, Tie::StdHash;
untie %h;
########
# strict behaviour, with 1 extra references generating an error
-use warning 'untie';
-#local $^W = 1 ;
+use warnings 'untie';
use Tie::Hash ;
$a = tie %h, Tie::StdHash;
untie %h;
########
# strict behaviour, with 1 extra references via tied generating an error
-use warning 'untie';
-#local $^W = 1 ;
+use warnings 'untie';
use Tie::Hash ;
tie %h, Tie::StdHash;
$a = tied %h;
########
# strict behaviour, with 1 extra references which are destroyed
-use warning 'untie';
-#local $^W = 1 ;
+use warnings 'untie';
use Tie::Hash ;
$a = tie %h, Tie::StdHash;
$a = 0 ;
########
# strict behaviour, with extra 1 references via tied which are destroyed
-use warning 'untie';
-#local $^W = 1 ;
+use warnings 'untie';
use Tie::Hash ;
tie %h, Tie::StdHash;
$a = tied %h;
########
# strict error behaviour, with 2 extra references
-use warning 'untie';
-#local $^W = 1 ;
+use warnings 'untie';
use Tie::Hash ;
$a = tie %h, Tie::StdHash;
$b = tied %h ;
########
# strict behaviour, check scope of strictness.
-no warning 'untie';
-#local $^W = 0 ;
+no warnings 'untie';
use Tie::Hash ;
$A = tie %H, Tie::StdHash;
$C = $B = tied %H ;
{
- use warning 'untie';
- #local $^W = 1 ;
+ use warnings 'untie';
use Tie::Hash ;
tie %h, Tie::StdHash;
untie %h;