This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In deprecate.pm, remove unused variable $line
authorNicholas Clark <nick@ccl4.org>
Fri, 18 Feb 2011 15:57:25 +0000 (15:57 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 18 Feb 2011 18:21:12 +0000 (18:21 +0000)
lib/deprecate.pm

index 7b92e0b..b5f1793 100644 (file)
@@ -1,14 +1,14 @@
 package deprecate;
 use strict;
 use warnings;
-our $VERSION = 0.01;
+our $VERSION = 0.02;
 
 # our %Config can ignore %Config::Config, e.g. for testing
 our %Config;
 unless (%Config) { require Config; *Config = \%Config::Config; }
 
 sub import {
-    my ($package, $file, $line) = caller;
+    my ($package, $file) = caller;
     my $expect_leaf = "$package.pm";
     $expect_leaf =~ s!::!/!g;