perl: De-FATALise warnings.

The documentation says, 'the use of "FATAL => 'all'" is discouraged', so
it better to leave them non-fatal.

diff --git a/perl/core.pm b/perl/core.pm
index 78547eb..ed918ea 100644 (file)
--- a/perl/core.pm
+++ b/perl/core.pm
@@ -1,6 +1,6 @@
 package core;
 use strict;
-use warnings FATAL => qw(all);
+use warnings;
 
 use Data::Dumper;
 use List::Util qw(pairmap);

diff --git a/perl/interop.pm b/perl/interop.pm
index da2c2d5..b1f6517 100644 (file)
--- a/perl/interop.pm
+++ b/perl/interop.pm
@@ -1,6 +1,6 @@
 package interop;
 use strict;
-use warnings FATAL => qw(all);
+use warnings;
 no if $] >= 5.018, warnings => "experimental::smartmatch";
 use feature qw(switch);
 

diff --git a/perl/printer.pm b/perl/printer.pm
index 6a4d7e3..a3f9976 100644 (file)
--- a/perl/printer.pm
+++ b/perl/printer.pm
@@ -1,6 +1,6 @@
 package printer;
 use strict;
-use warnings FATAL => qw(all);
+use warnings;
 
 use Exporter 'import';
 our @EXPORT_OK = qw( _pr_str );

diff --git a/perl/reader.pm b/perl/reader.pm
index 209e04e..606eb83 100644 (file)
--- a/perl/reader.pm
+++ b/perl/reader.pm
@@ -1,6 +1,6 @@
 package reader;
 use strict;
-use warnings FATAL => qw(all);
+use warnings;
 no if $] >= 5.018, warnings => "experimental::smartmatch";
 use feature qw(switch);
 

diff --git a/perl/step0_repl.pl b/perl/step0_repl.pl
index 4b62826..7793633 100644 (file)
--- a/perl/step0_repl.pl
+++ b/perl/step0_repl.pl
@@ -1,5 +1,5 @@
 use strict;
-use warnings FATAL => qw(all);
+use warnings;
 use File::Basename;
 use lib dirname (__FILE__);
 

diff --git a/perl/step1_read_print.pl b/perl/step1_read_print.pl
index 2c6e971..9717d7e 100644 (file)
--- a/perl/step1_read_print.pl
+++ b/perl/step1_read_print.pl
@@ -1,5 +1,5 @@
 use strict;
-use warnings FATAL => qw(all);
+use warnings;
 use File::Basename;
 use lib dirname (__FILE__);
 

diff --git a/perl/step2_eval.pl b/perl/step2_eval.pl
index 4a3c106..7790b37 100644 (file)
--- a/perl/step2_eval.pl
+++ b/perl/step2_eval.pl
@@ -1,5 +1,5 @@
 use strict;
-use warnings FATAL => qw(all);
+use warnings;
 use File::Basename;
 use lib dirname (__FILE__);
 

diff --git a/perl/step3_env.pl b/perl/step3_env.pl
index 156fb3f..5e9643f 100644 (file)
--- a/perl/step3_env.pl
+++ b/perl/step3_env.pl
@@ -1,5 +1,5 @@
 use strict;
-use warnings FATAL => qw(all);
+use warnings;
 no if $] >= 5.018, warnings => "experimental::smartmatch";
 use feature qw(switch);
 use File::Basename;

diff --git a/perl/step4_if_fn_do.pl b/perl/step4_if_fn_do.pl
index 99f0434..2f93757 100644 (file)
--- a/perl/step4_if_fn_do.pl
+++ b/perl/step4_if_fn_do.pl
@@ -1,5 +1,5 @@
 use strict;
-use warnings FATAL => qw(all);
+use warnings;
 no if $] >= 5.018, warnings => "experimental::smartmatch";
 use feature qw(switch);
 use File::Basename;

diff --git a/perl/step5_tco.pl b/perl/step5_tco.pl
index 89f3a7d..2799299 100644 (file)
--- a/perl/step5_tco.pl
+++ b/perl/step5_tco.pl
@@ -1,5 +1,5 @@
 use strict;
-use warnings FATAL => qw(all);
+use warnings;
 no if $] >= 5.018, warnings => "experimental::smartmatch";
 use feature qw(switch);
 use File::Basename;

diff --git a/perl/step6_file.pl b/perl/step6_file.pl
index b8c64ab..87c1452 100644 (file)
--- a/perl/step6_file.pl
+++ b/perl/step6_file.pl
@@ -1,5 +1,5 @@
 use strict;
-use warnings FATAL => qw(all);
+use warnings;
 no if $] >= 5.018, warnings => "experimental::smartmatch";
 use feature qw(switch);
 use File::Basename;

diff --git a/perl/step7_quote.pl b/perl/step7_quote.pl
index a1b5b0d..686c377 100644 (file)
--- a/perl/step7_quote.pl
+++ b/perl/step7_quote.pl
@@ -1,5 +1,5 @@
 use strict;
-use warnings FATAL => qw(all);
+use warnings;
 no if $] >= 5.018, warnings => "experimental::smartmatch";
 use feature qw(switch);
 use File::Basename;

diff --git a/perl/step8_macros.pl b/perl/step8_macros.pl
index 41be272..171c2a2 100644 (file)
--- a/perl/step8_macros.pl
+++ b/perl/step8_macros.pl
@@ -1,5 +1,5 @@
 use strict;
-use warnings FATAL => qw(all);
+use warnings;
 no if $] >= 5.018, warnings => "experimental::smartmatch";
 use feature qw(switch);
 use File::Basename;

diff --git a/perl/step9_try.pl b/perl/step9_try.pl
index 1dcfa98..6958635 100644 (file)
--- a/perl/step9_try.pl
+++ b/perl/step9_try.pl
@@ -1,5 +1,5 @@
 use strict;
-use warnings FATAL => qw(all);
+use warnings;
 no if $] >= 5.018, warnings => "experimental::smartmatch";
 use feature qw(switch);
 use File::Basename;

diff --git a/perl/stepA_mal.pl b/perl/stepA_mal.pl
index 2bed872..7056a5a 100644 (file)
--- a/perl/stepA_mal.pl
+++ b/perl/stepA_mal.pl
@@ -1,5 +1,5 @@
 use strict;
-use warnings FATAL => qw(all);
+use warnings;
 no if $] >= 5.018, warnings => "experimental::smartmatch";
 use feature qw(switch);
 use File::Basename;

diff --git a/perl/types.pm b/perl/types.pm
index e0d7b99..32764ce 100644 (file)
--- a/perl/types.pm
+++ b/perl/types.pm
@@ -1,6 +1,6 @@
 package types;
 use strict;
-use warnings FATAL => qw(all);
+use warnings;
 
 use Data::Dumper;
 use Exporter 'import';