eliminate use vars
authorTony Cook <tony@develop-help.com>
Sat, 13 Jun 2020 06:25:47 +0000 (16:25 +1000)
committerTony Cook <tony@develop-help.com>
Sat, 13 Jun 2020 06:25:47 +0000 (16:25 +1000)
44 files changed:
CountColor/CountColor.pm
DynTest/DynTest.pm
FT2/FT2.pm
Flines/Flines.pm
GIF/GIF.pm
ICO/ICO.pm
ICO/lib/Imager/File/CUR.pm
Imager.pm
JPEG/JPEG.pm
MANIFEST
Mandelbrot/Mandelbrot.pm
PNG/PNG.pm
SGI/SGI.pm
T1/T1.pm
TIFF/TIFF.pm
W32/W32.pm
W32/lib/Imager/Font/Win32.pm
lib/Imager/Color.pm
lib/Imager/Color/Float.pm
lib/Imager/Color/Table.pm
lib/Imager/Expr.pm
lib/Imager/Expr/Assem.pm
lib/Imager/ExtUtils.pm
lib/Imager/Fill.pm
lib/Imager/Font.pm
lib/Imager/Font/BBox.pm
lib/Imager/Font/FreeType2.pm
lib/Imager/Font/Image.pm
lib/Imager/Font/Test.pm
lib/Imager/Font/Truetype.pm
lib/Imager/Font/Type1.pm
lib/Imager/Font/Wrap.pm
lib/Imager/Fountain.pm
lib/Imager/Matrix2d.pm
lib/Imager/Preprocess.pm
lib/Imager/Probe.pm
lib/Imager/Regops.pm
lib/Imager/Test.pm
lib/Imager/Transform.pm
regops.perl
spot.perl
t/GoodTestFont.pm
t/Pod/Coverage/Imager.pm
t/t1000lib/Imager/File/BAD.pm

index 6d37af2..2e30116 100644 (file)
@@ -1,14 +1,14 @@
 package Imager::CountColor;
+use 5.006;
 use strict;
 use Imager;
-use vars qw($VERSION @ISA @EXPORT_OK);
 require Exporter;
-@EXPORT_OK = 'count_color';
+our @EXPORT_OK = 'count_color';
 
 BEGIN {
-  $VERSION = "0.02";
-  @ISA = qw(Exporter);
-  
+  our $VERSION = "0.03";
+  our @ISA = qw(Exporter);
+
   require XSLoader;
   XSLoader::load('Imager::CountColor', $VERSION);
 }
index cf795f1..b628f06 100644 (file)
@@ -1,10 +1,10 @@
 package Imager::Filter::DynTest;
+use 5.006;
 use strict;
 use Imager;
-use vars qw($VERSION @ISA);
 
 BEGIN {
-  $VERSION = "0.02";
+  our $VERSION = "0.03";
   
   require XSLoader;
   XSLoader::load('Imager::Filter::DynTest', $VERSION);
index aba52bb..614b6ee 100644 (file)
@@ -1,9 +1,11 @@
 package Imager::Font::FT2;
+use 5.006;
 use strict;
 use Imager;
 use Scalar::Util ();
-use vars qw($VERSION @ISA);
-@ISA = qw(Imager::Font);
+our @ISA = qw(Imager::Font);
+
+our $VERSION;
 
 BEGIN {
   $VERSION = "0.98";
index 9b7ab04..e459d3e 100644 (file)
@@ -1,10 +1,10 @@
 package Imager::Filter::Flines;
+use 5.006;
 use strict;
 use Imager;
-use vars qw($VERSION @ISA);
 
 BEGIN {
-  $VERSION = "0.03";
+  our $VERSION = "0.04";
   
   require XSLoader;
   XSLoader::load('Imager::Filter::Flines', $VERSION);
index f5646a0..fd06301 100644 (file)
@@ -1,10 +1,10 @@
 package Imager::File::GIF;
+use 5.006;
 use strict;
 use Imager;
-use vars qw($VERSION @ISA);
 
 BEGIN {
-  $VERSION = "0.96";
+  our $VERSION = "0.96";
 
   require XSLoader;
   XSLoader::load('Imager::File::GIF', $VERSION);
index c560a57..aaa18de 100644 (file)
@@ -1,10 +1,10 @@
 package Imager::File::ICO;
+use 5.006;
 use strict;
 use Imager;
-use vars qw($VERSION @ISA);
 
 BEGIN {
-  $VERSION = "0.06";
+  our $VERSION = "0.07";
   
   require XSLoader;
   XSLoader::load('Imager::File::ICO', $VERSION);
index 7c3570c..a035b9a 100644 (file)
@@ -1,5 +1,7 @@
 package Imager::File::CUR;
+use 5.006;
 use strict;
+our $VERSION = "1.000";
 
 # all the work is done by Imager::File::ICO
 use Imager::File::ICO;
index 430e263..89202d7 100644 (file)
--- a/Imager.pm
+++ b/Imager.pm
@@ -1,14 +1,16 @@
 package Imager;
+use 5.006;
 
 use strict;
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS %formats $DEBUG %filters %DSOs $ERRSTR %OPCODES $I2P $FORMATGUESS $warn_obsolete);
 use IO::File;
 use Scalar::Util;
 use Imager::Color;
 use Imager::Font;
 use Config;
 
-@EXPORT_OK = qw(
+our $ERRSTR;
+
+our @EXPORT_OK = qw(
                init
                init_log
                DSO_open
@@ -89,10 +91,10 @@ use Config;
                 NCF
 );
 
-@EXPORT=qw(
+our @EXPORT=qw(
          );
 
-%EXPORT_TAGS=
+our %EXPORT_TAGS=
   (handy => [qw(
                newfont
                newcolor
@@ -138,11 +140,13 @@ $combine_types{sat}  = $combine_types{saturation};
 # this will be used to store global defaults at some point
 my %defaults;
 
+our $VERSION;
+
 BEGIN {
   require Exporter;
   my $ex_version = eval $Exporter::VERSION;
   if ($ex_version < 5.57) {
-    @ISA = qw(Exporter);
+    our @ISA = qw(Exporter);
   }
   $VERSION = '1.011';
   require XSLoader;
@@ -161,8 +165,17 @@ my %format_classes =
    t1 => "Imager::Font::T1",
   );
 
+our %formats;
+
 tie %formats, "Imager::FORMATS", \%formats_low, \%format_classes;
 
+our %filters;
+
+our $DEBUG;
+our %OPCODES;
+our $FORMATGUESS;
+our $warn_obsolete;
+
 BEGIN {
   for(i_list_formats()) { $formats_low{$_}++; }
 
@@ -526,7 +539,9 @@ END {
   }
 }
 
-# Load a filter plugin 
+# Load a filter plugin
+
+our %DSOs;
 
 sub load_plugin {
   my ($filename)=@_;
@@ -2425,6 +2440,8 @@ sub scaleY {
 # NOTE - should make a utility function to check transforms for
 # stack overruns
 
+our $I2P;
+
 sub transform {
   my $self=shift;
   my %opts=@_;
index 11171a9..e1c8149 100644 (file)
@@ -1,10 +1,10 @@
 package Imager::File::JPEG;
+use 5.006;
 use strict;
 use Imager;
-use vars qw($VERSION @ISA);
 
 BEGIN {
-  $VERSION = "0.94";
+  our $VERSION = "0.94";
 
   require XSLoader;
   XSLoader::load('Imager::File::JPEG', $VERSION);
index 64f1133..a2f20f4 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -385,6 +385,7 @@ t/950-kwalitee/040-strict.t Check use strict is usede
 t/950-kwalitee/050-meta.t      Check META.yml is valid
 t/950-kwalitee/060-podstruct.t
 t/950-kwalitee/070-mymeta.t
+t/950-kwalitee/080-nousevars.t Check various standards
 t/GoodTestFont.pm              A dummy (hardly implemented) font driver.
 t/Pod/Coverage/Imager.pm
 t/t1000lib/Imager/File/BAD.pm  Test failing to load a file handler
index 2480f62..081d7de 100644 (file)
@@ -1,10 +1,10 @@
 package Imager::Filter::Mandelbrot;
+use 5.006;
 use strict;
 use Imager;
-use vars qw($VERSION @ISA);
 
 BEGIN {
-  $VERSION = "0.04";
+  our $VERSION = "0.05";
   
   require XSLoader;
   XSLoader::load('Imager::Filter::Mandelbrot', $VERSION);
index 4ad6edd..e1e3d17 100644 (file)
@@ -1,10 +1,10 @@
 package Imager::File::PNG;
+use 5.006;
 use strict;
 use Imager;
-use vars qw($VERSION @ISA);
 
 BEGIN {
-  $VERSION = "0.95";
+  our $VERSION = "0.95";
 
   require XSLoader;
   XSLoader::load('Imager::File::PNG', $VERSION);
index b033b2d..e7975d9 100644 (file)
@@ -1,10 +1,10 @@
 package Imager::File::SGI;
+use 5.006;
 use strict;
 use Imager;
-use vars qw($VERSION @ISA);
 
 BEGIN {
-  $VERSION = "0.04";
+  our $VERSION = "0.05";
   
   require XSLoader;
   XSLoader::load('Imager::File::SGI', $VERSION);
index 8c1d764..9fca037 100644 (file)
--- a/T1/T1.pm
+++ b/T1/T1.pm
@@ -1,12 +1,12 @@
 package Imager::Font::T1;
+use 5.006;
 use strict;
 use Imager::Color;
-use vars qw(@ISA $VERSION);
-@ISA = qw(Imager::Font);
+our @ISA = qw(Imager::Font);
 use Scalar::Util ();
 
 BEGIN {
-  $VERSION = "1.027";
+  our $VERSION = "1.027";
 
   require XSLoader;
   XSLoader::load('Imager::Font::T1', $VERSION);
index f1cfd87..18a0a60 100644 (file)
@@ -1,10 +1,10 @@
 package Imager::File::TIFF;
+use 5.006;
 use strict;
 use Imager;
-use vars qw($VERSION @ISA);
 
 BEGIN {
-  $VERSION = "0.92";
+  our $VERSION = "0.92";
 
   require XSLoader;
   XSLoader::load('Imager::File::TIFF', $VERSION);
index 45780f7..6fd4219 100644 (file)
@@ -1,11 +1,11 @@
 package Imager::Font::W32;
+use 5.006;
 use strict;
 use Imager;
-use vars qw($VERSION @ISA);
-@ISA = qw(Imager::Font);
+our @ISA = qw(Imager::Font);
 
 BEGIN {
-  $VERSION = "0.91";
+  our $VERSION = "0.91";
 
   require XSLoader;
   XSLoader::load('Imager::Font::W32', $VERSION);
index bd63f66..c4d1fce 100644 (file)
@@ -1,7 +1,9 @@
 package Imager::Font::Win32;
+use 5.006;
 use strict;
-use vars qw(@ISA);
-@ISA = qw(Imager::Font::W32);
+our @ISA = qw(Imager::Font::W32);
+
+our $VERSION = "1.000";
 
 require Imager::Font::W32;
 
index 70336f8..2f0036a 100644 (file)
@@ -1,10 +1,9 @@
 package Imager::Color;
-
+use 5.006;
 use Imager;
 use strict;
-use vars qw($VERSION);
 
-$VERSION = "1.013";
+our $VERSION = "1.013";
 
 # It's just a front end to the XS creation functions.
 
index 24f0426..4ad213e 100644 (file)
@@ -1,10 +1,9 @@
 package Imager::Color::Float;
-
+use 5.006;
 use Imager;
 use strict;
-use vars qw($VERSION);
 
-$VERSION = "1.006";
+our $VERSION = "1.006";
 
 # It's just a front end to the XS creation functions.
 
index 397201c..c352ecf 100644 (file)
@@ -1,8 +1,8 @@
 package Imager::Color::Table;
 use strict;
-use vars qw($VERSION);
+use 5.006;
 
-$VERSION = "1.003";
+our $VERSION = "1.004";
 
     my %colors;
 
index 0668d19..74f7056 100644 (file)
@@ -1,10 +1,9 @@
 package Imager::Expr;
-
+use 5.006;
 use Imager::Regops;
 use strict;
-use vars qw($VERSION);
 
-$VERSION = "1.007";
+our $VERSION = "1.008";
 
 my %expr_types;
 
@@ -296,8 +295,7 @@ sub dumpcode {
 }
 
 package Imager::Expr::Postfix;
-use vars qw(@ISA);
-@ISA = qw(Imager::Expr);
+our @ISA = qw(Imager::Expr);
 
 Imager::Expr::Postfix->register_type('rpnexpr');
 
@@ -319,8 +317,7 @@ sub compile {
 
 package Imager::Expr::Infix;
 
-use vars qw(@ISA);
-@ISA = qw(Imager::Expr);
+our @ISA = qw(Imager::Expr);
 use Imager::Regops qw(%Attr $MaxOperands);
 
 {
index eb00eea..f2c8481 100644 (file)
@@ -1,13 +1,12 @@
 package Imager::Expr::Assem;
+use 5.006;
 use strict;
 use Imager::Expr;
 use Imager::Regops;
-use vars qw($VERSION);
 
-$VERSION = "1.003";
+our $VERSION = "1.004";
 
-use vars qw(@ISA);
-@ISA = qw(Imager::Expr);
+our @ISA = qw(Imager::Expr);
 
 __PACKAGE__->register_type('assem');
 
index 61caa07..3a0d828 100644 (file)
@@ -1,10 +1,9 @@
 package Imager::ExtUtils;
+use 5.006;
 use strict;
 use File::Spec;
 
-use vars qw($VERSION);
-
-$VERSION = "1.002";
+our $VERSION = "1.003";
 
 =head1 NAME
 
index f964c09..6544b8f 100644 (file)
@@ -1,8 +1,8 @@
 package Imager::Fill;
+use 5.006;
 use strict;
-use vars qw($VERSION);
 
-$VERSION = "1.012";
+our $VERSION = "1.013";
 
 # this needs to be kept in sync with the array of hatches in fills.c
 my @hatch_types =
index 4a50c22..f6c2473 100644 (file)
@@ -1,10 +1,9 @@
 package Imager::Font;
-
+use 5.006;
 use Imager::Color;
 use strict;
-use vars qw($VERSION);
 
-$VERSION = "1.039";
+our $VERSION = "1.039";
 
 # the aim here is that we can:
 #  - add file based types in one place: here
index c005717..579378a 100644 (file)
@@ -1,8 +1,8 @@
 package Imager::Font::BBox;
+use 5.006;
 use strict;
-use vars qw($VERSION);
 
-$VERSION = "1.006";
+our $VERSION = "1.007";
 
 =head1 NAME
 
index 279dfad..0ad8d24 100644 (file)
@@ -1,10 +1,11 @@
 package Imager::Font::FreeType2;
+use 5.006;
 use strict;
 use Imager::Font::FT2;
-use vars qw(@ISA $VERSION);
-@ISA = qw(Imager::Font::FT2);
 
-$VERSION = "1.020";
+our @ISA = qw(Imager::Font::FT2);
+
+our $VERSION = "1.021";
 
 
 1;
index 19f3920..bf99013 100644 (file)
@@ -1,11 +1,12 @@
 package Imager::Font::Image;
+use 5.006;
 use strict;
 use Imager::Color;
 use File::Basename;
 use File::Spec;
 
-use vars qw(@ISA %REQUIRED_FIELDS);
-@ISA = qw(Imager::Font);
+our @ISA = qw(Imager::Font);
+our $VERSION = "1.000";
 
 sub NWIDTH   () { 0 }
 sub PWIDTH   () { 2 }
@@ -15,7 +16,7 @@ sub DESCENT  () { 4 }
 sub ASCENT   () { 5 }
 
 
-%REQUIRED_FIELDS = (
+our %REQUIRED_FIELDS = (
        Image_spec     => 1,
        Font_size      => 1,
        Global_ascent  => 1,
index 59d9186..9d3bd6d 100644 (file)
@@ -1,7 +1,8 @@
 package Imager::Font::Test;
+use 5.006;
 use strict;
 
-our $VERSION = "1.0001";
+our $VERSION = "1.002";
 
 use base 'Imager::Font';
 
index 68e1520..55c314c 100644 (file)
@@ -1,9 +1,10 @@
 package Imager::Font::Truetype;
+use 5.006;
 use strict;
-use vars qw(@ISA $VERSION);
-@ISA = qw(Imager::Font);
 
-$VERSION = "1.012";
+our @ISA = qw(Imager::Font);
+
+our $VERSION = "1.013";
 
 *_first = \&Imager::Font::_first;
 
index 1f0e882..c53041e 100644 (file)
@@ -1,10 +1,11 @@
 package Imager::Font::Type1;
+use 5.006;
 use strict;
 use Imager::Font::T1;
-use vars qw(@ISA $VERSION);
-@ISA = qw(Imager::Font::FT2);
 
-$VERSION = "1.012";
+our @ISA = qw(Imager::Font::T1);
+
+our $VERSION = "1.013";
 
 1;
 
index a1f8130..189083a 100644 (file)
@@ -1,10 +1,10 @@
 package Imager::Font::Wrap;
+use 5.006;
 use strict;
 use Imager;
 use Imager::Font;
-use vars qw($VERSION);
 
-$VERSION = "1.004";
+our $VERSION = "1.005";
 
 *_first = \&Imager::Font::_first;
 
index dec912f..1fe6d19 100644 (file)
@@ -1,9 +1,9 @@
 package Imager::Fountain;
+use 5.006;
 use strict;
 use Imager::Color::Float;
-use vars qw($VERSION);
 
-$VERSION = "1.007";
+our $VERSION = "1.008";
 
 =head1 NAME
 
index 3aa2cf3..e3eab76 100644 (file)
@@ -1,10 +1,10 @@
 package Imager::Matrix2d;
+use 5.006;
 use strict;
-use vars qw($VERSION);
 use Scalar::Util qw(reftype looks_like_number);
 use Carp qw(croak);
 
-$VERSION = "1.012";
+our $VERSION = "1.013";
 
 =head1 NAME
 
@@ -47,12 +47,11 @@ bottom, rotation angles are clockwise, rather than counter-clockwise.
 
 =cut
 
-use vars qw(@EXPORT_OK %EXPORT_TAGS @ISA);
-@ISA = 'Exporter';
-require 'Exporter.pm';
-@EXPORT_OK = qw(m2d_rotate m2d_identity m2d_translate m2d_shear 
+our @ISA = 'Exporter';
+require Exporter;
+our @EXPORT_OK = qw(m2d_rotate m2d_identity m2d_translate m2d_shear 
                 m2d_reflect m2d_scale);
-%EXPORT_TAGS =
+our %EXPORT_TAGS =
   (
    handy=> [ qw(m2d_rotate m2d_identity m2d_translate m2d_shear 
                 m2d_reflect m2d_scale) ],
index e6b3fc1..40eaaaa 100644 (file)
@@ -1,14 +1,14 @@
 package Imager::Preprocess;
+use 5.006;
 use strict;
 require Exporter;
-use vars qw(@ISA @EXPORT $VERSION);
 use Getopt::Long;
 use Text::ParseWords;
 
-@EXPORT = qw(preprocess);
-@ISA = qw(Exporter);
+our @EXPORT = qw(preprocess);
+our @ISA = qw(Exporter);
 
-$VERSION = "1.001";
+our $VERSION = "1.002";
 
 sub preprocess {
   unshift @ARGV, grep /^-/, shellwords($ENV{IMAGER_PREPROCESS_OPTS})
index ff4c33e..8ef7000 100644 (file)
@@ -1,4 +1,5 @@
 package Imager::Probe;
+use 5.006;
 use strict;
 use File::Spec;
 use Config;
index 1455c15..439fc26 100644 (file)
@@ -1,10 +1,11 @@
 # AUTOMATICALLY GENERATED BY regops.perl
 package Imager::Regops;
+use 5.006;
 use strict;
 require Exporter;
-use vars qw(@ISA @EXPORT @EXPORT_OK %Attr $MaxOperands $PackCode);
-@ISA = qw(Exporter);
-@EXPORT_OK = qw(%Attr $MaxOperands $PackCode);
+our @ISA = qw(Exporter);
+our @EXPORT_OK = qw(%Attr $MaxOperands $PackCode);
+our $VERSION = "1.000";
 
 use constant RBC_ADD => 0;
 use constant RBC_SUBTRACT => 1;
@@ -60,9 +61,9 @@ use constant RBC_EXP => 50;
 use constant RBC_DET => 51;
 use constant RBC_OP_COUNT => 52;
 
-@EXPORT = qw(RBC_ADD RBC_SUBTRACT RBC_MULT RBC_DIV RBC_MOD RBC_POW RBC_UMINUS RBC_MULTP RBC_ADDP RBC_SUBTRACTP RBC_SIN RBC_COS RBC_ATAN2 RBC_SQRT RBC_DISTANCE RBC_GETP1 RBC_GETP2 RBC_GETP3 RBC_VALUE RBC_HUE RBC_SAT RBC_HSV RBC_RED RBC_GREEN RBC_BLUE RBC_RGB RBC_INT RBC_IF RBC_IFP RBC_LE RBC_LT RBC_GE RBC_GT RBC_EQ RBC_NE RBC_AND RBC_OR RBC_NOT RBC_ABS RBC_RET RBC_JUMP RBC_JUMPZ RBC_JUMPNZ RBC_SET RBC_SETP RBC_PRINT RBC_RGBA RBC_HSVA RBC_ALPHA RBC_LOG RBC_EXP RBC_DET RBC_OP_COUNT);
+our @EXPORT = qw(RBC_ADD RBC_SUBTRACT RBC_MULT RBC_DIV RBC_MOD RBC_POW RBC_UMINUS RBC_MULTP RBC_ADDP RBC_SUBTRACTP RBC_SIN RBC_COS RBC_ATAN2 RBC_SQRT RBC_DISTANCE RBC_GETP1 RBC_GETP2 RBC_GETP3 RBC_VALUE RBC_HUE RBC_SAT RBC_HSV RBC_RED RBC_GREEN RBC_BLUE RBC_RGB RBC_INT RBC_IF RBC_IFP RBC_LE RBC_LT RBC_GE RBC_GT RBC_EQ RBC_NE RBC_AND RBC_OR RBC_NOT RBC_ABS RBC_RET RBC_JUMP RBC_JUMPZ RBC_JUMPNZ RBC_SET RBC_SETP RBC_PRINT RBC_RGBA RBC_HSVA RBC_ALPHA RBC_LOG RBC_EXP RBC_DET RBC_OP_COUNT);
 
-%Attr =
+our %Attr =
   (
   'abs' =>
     {
@@ -489,8 +490,8 @@ use constant RBC_OP_COUNT => 52;
     'types' => 'p',
     },
   );
-$MaxOperands = 4;
-$PackCode = "i";
+our $MaxOperands = 4;
+our $PackCode = "i";
 1;
 
 __END__
index 836b409..f4843aa 100644 (file)
@@ -1,16 +1,16 @@
 package Imager::Test;
+use 5.006;
 use strict;
 use Test::More;
 use Test::Builder;
 require Exporter;
-use vars qw(@ISA @EXPORT_OK $VERSION);
 use Carp qw(croak carp);
 use Config;
 
-$VERSION = "1.004";
+our $VERSION = "1.005";
 
-@ISA = qw(Exporter);
-@EXPORT_OK = 
+our @ISA = qw(Exporter);
+our @EXPORT_OK = 
   qw(
      diff_text_with_nul 
      test_image_raw
index 43a1816..b6b945c 100644 (file)
@@ -1,10 +1,10 @@
 package Imager::Transform;
+use 5.006;
 use strict;
 use Imager;
 use Imager::Expr::Assem;
-use vars qw($VERSION);
 
-$VERSION = "1.006";
+our $VERSION = "1.007";
 
 my %funcs =
   (
index 613ffc2..4c23aab 100644 (file)
@@ -9,11 +9,12 @@ binmode OUT;
 print OUT <<'EOS';
 # AUTOMATICALLY GENERATED BY regops.perl
 package Imager::Regops;
+use 5.006;
 use strict;
 require Exporter;
-use vars qw(@ISA @EXPORT @EXPORT_OK %Attr $MaxOperands $PackCode);
-@ISA = qw(Exporter);
-@EXPORT_OK = qw(%Attr $MaxOperands $PackCode);
+our @ISA = qw(Exporter);
+our @EXPORT_OK = qw(%Attr $MaxOperands $PackCode);
+our $VERSION = "1.000";
 
 EOS
 my @ops;
@@ -44,12 +45,12 @@ while (<IN>) {
     $reg_pack = $1; 
   }
 }
-print OUT "\n\@EXPORT = qw(@ops);\n\n";
+print OUT "\nour \@EXPORT = qw(@ops);\n\n";
 # previously we used Data::Dumper, with Sortkeys() 
 # to make sure the generated code only changed when the data
 # changed.  Unfortunately Sortkeys isn't supported in some versions of
 # perl we try to support, so we now generate this manually
-print OUT "%Attr =\n  (\n";
+print OUT "our %Attr =\n  (\n";
 for my $opname (sort keys %attr) {
   my $op = $attr{$opname};
   print OUT "  '$opname' =>\n    {\n";
@@ -73,8 +74,8 @@ for my $opname (sort keys %attr) {
   print OUT "    },\n";
 }
 print OUT "  );\n";
-print OUT "\$MaxOperands = $max_opr;\n";
-print OUT qq/\$PackCode = "$reg_pack";\n/;
+print OUT "our \$MaxOperands = $max_opr;\n";
+print OUT qq/our \$PackCode = "$reg_pack";\n/;
 print OUT <<'EOS';
 1;
 
index 1b10cfb..c299683 100644 (file)
--- a/spot.perl
+++ b/spot.perl
@@ -5,9 +5,8 @@ my $func = shift or die "Usage: $0 function [width height expandx expandy]\n";
 my $width = shift || 8;
 my $height = shift || 8;
 my @spot;
-use vars qw($x $y);
-for $y (0..$height-1) {
-  for $x (0..$width-1) {
+for my $y (0..$height-1) {
+  for my $x (0..$width-1) {
     my $res = eval $func;
     $spot[$x+$y*$width] = $res * $res;
   }
index ad75804..bd05257 100644 (file)
@@ -1,6 +1,8 @@
 package GoodTestFont;
+use 5.006;
 use strict;
-use vars '@ISA';
+
+our $VERSION = "1.000";
 
 # this doesn't do enough to be a font
 
index bccd5cd..61e7385 100644 (file)
@@ -1,7 +1,10 @@
 package Pod::Coverage::Imager;
+use 5.006;
 use strict;
 use base 'Pod::Coverage';
 
+our $VERSION = "1.000";
+
 sub _get_pods {
   my $self = shift;
 
index 6629ccd..0b18f1b 100644 (file)
@@ -1,6 +1,9 @@
 package Imager::File::BAD;
+use 5.006;
 use strict;
 
+our $VERSION = "1.000";
+
 die "This module fails to load\n";
 
 1;