remove unneeded variable

diff --git a/videosite/Base.pm b/videosite/Base.pm
index cf8bafa..efcce5b 100644 (file)
--- a/videosite/Base.pm
+++ b/videosite/Base.pm
@@ -20,7 +20,6 @@ sub new {
 
 sub error {
     my $self = shift;
-    my @data = @_;
     my $t;
 
     $t = sprintf(shift(@_), @_);