- Remove unneeded subroutine

diff --git a/videosite/RedTubeGrabber.pm b/videosite/RedTubeGrabber.pm
index a67a755..2dda60c 100644 (file)
--- a/videosite/RedTubeGrabber.pm
+++ b/videosite/RedTubeGrabber.pm
@@ -31,17 +31,6 @@ sub new {
     return $self;
 }
 
-sub check_cookie {
-
-    my $jar = shift;
-    my $key = shift;
-    my $found = undef;
-
-    $jar->scan(sub { $found = 1 if ( $key eq $_[1]) });
-
-    return $found;
-}
-
 sub div($$) {
     return ($_[0] - ($_[0] % $_[1])) / $_[1];
 }