diff options
| author | Nicolas R <atoomic@cpan.org> | 2017-09-12 13:20:25 -0600 |
|---|---|---|
| committer | Todd Rinaldo <toddr@cpan.org> | 2017-11-11 01:07:18 -0600 |
| commit | 1a58b39af83e11fcbeef7ae4cd90c565b1f6b8cb (patch) | |
| tree | 542b8e3ec768e2b3a533354d694d53c6c161e8e5 /dist/Filter-Simple | |
| parent | 33394adc9b131beee7dbbaf29bc7e8e02900f654 (diff) | |
| download | perl-1a58b39af83e11fcbeef7ae4cd90c565b1f6b8cb.tar.gz | |
Replace multiple 'use vars' by 'our' in dist
Using vars pragma is discouraged and has been superseded
by 'our' declarations available in Perl v5.6.0 or later.
Additionally using 'vars' pragma increase the memory consumption of a
program by about 700 kB for no good reason.
This commit is about replacing the usage of 'vars' pragma
by 'our' in blead where it makes sense. ( leaving 'cpan' directory
outside of the scope )
-- using vars
perl -e 'use vars qw(@ISA $AUTOLOAD $VERSION); print qx{grep RSS /proc/$$/status} '
VmRSS: 2588 kB
-- using our instead
perl -e 'our (@ISA, $AUTOLOAD, $VERSION); print qx{grep RSS /proc/$$/status} '
VmRSS: 1864 kB
Diffstat (limited to 'dist/Filter-Simple')
| -rw-r--r-- | dist/Filter-Simple/lib/Filter/Simple.pm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/dist/Filter-Simple/lib/Filter/Simple.pm b/dist/Filter-Simple/lib/Filter/Simple.pm index 082fe954bf..1dcf3c80bf 100644 --- a/dist/Filter-Simple/lib/Filter/Simple.pm +++ b/dist/Filter-Simple/lib/Filter/Simple.pm @@ -2,14 +2,12 @@ package Filter::Simple; use Text::Balanced ':ALL'; -use vars qw{ $VERSION @EXPORT }; - -$VERSION = '0.94'; +our $VERSION = '0.95'; use Filter::Util::Call; use Carp; -@EXPORT = qw( FILTER FILTER_ONLY ); +our @EXPORT = qw( FILTER FILTER_ONLY ); sub import { |