In perl.git, the branch dagolden/revive-strictperl has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/15b676d21638483eecd6ab715ab054876acee4f7?hp=b4aba26040d0b92c5d8e4819600a3329daf5a17c>
- Log -----------------------------------------------------------------
commit 15b676d21638483eecd6ab715ab054876acee4f7
Author: David Golden <dagol...@cpan.org>
Date: Sat Mar 2 10:42:01 2013 -0500
make base play nice with strict
M dist/base/lib/base.pm
commit 7191d7ecba2a6ac508ef9ff16d1fb6e4feed8eea
Author: David Golden <dagol...@cpan.org>
Date: Sat Mar 2 10:41:49 2013 -0500
make Text::Tabs play nice with strict
M cpan/Text-Tabs/lib/Text/Tabs.pm
-----------------------------------------------------------------------
Summary of changes:
cpan/Text-Tabs/lib/Text/Tabs.pm | 7 ++++---
dist/base/lib/base.pm | 3 ++-
2 files changed, 6 insertions(+), 4 deletions(-)
diff --git a/cpan/Text-Tabs/lib/Text/Tabs.pm b/cpan/Text-Tabs/lib/Text/Tabs.pm
index 34d81ab..a03f570 100644
--- a/cpan/Text-Tabs/lib/Text/Tabs.pm
+++ b/cpan/Text-Tabs/lib/Text/Tabs.pm
@@ -1,16 +1,17 @@
package Text::Tabs;
+use strict;
+
require Exporter;
-@ISA = (Exporter);
-@EXPORT = qw(expand unexpand $tabstop);
+our @ISA = ('Exporter');
+our @EXPORT = qw(expand unexpand $tabstop);
use vars qw($VERSION $SUBVERSION $tabstop $debug);
$VERSION = 2012.0818;
$SUBVERSION = 'modern';
-use strict;
use 5.010_000;
diff --git a/dist/base/lib/base.pm b/dist/base/lib/base.pm
index 19fc845..6b5c1c8 100644
--- a/dist/base/lib/base.pm
+++ b/dist/base/lib/base.pm
@@ -1,6 +1,7 @@
package base;
-use strict 'vars';
+use strict;
+no strict 'refs';
use vars qw($VERSION);
$VERSION = '2.18';
$VERSION = eval $VERSION;
--
Perl5 Master Repository
