Suppress warning about $canonical. (Nicholas Clark)

p4raw-id: //depot/perl@16718

diff --git a/ext/Storable/Storable.pm b/ext/Storable/Storable.pm
index 50fc105..112c871 100644 (file)
--- a/ext/Storable/Storable.pm
+++ b/ext/Storable/Storable.pm
@@ -68,7 +68,7 @@ package Storable; @ISA = qw(Exporter DynaLoader);
 );
 
 use AutoLoader;
-use vars qw($forgive_me $VERSION);
+use vars qw($canonical $forgive_me $VERSION);
 
 $VERSION = '2.00';
 *AUTOLOAD = \&AutoLoader::AUTOLOAD;            # Grrr...