Changeset 191

Timestamp:

11/07/06 02:19:53 (7 years ago)

Author:

lincoln

Message:

CPAN dependency diet

Files:

• shepherd (modified) (1 diff)
• tv_grab_au (modified) (2 diffs)

shepherd

@@ -64 +64 @@
 
 use LWP::UserAgent;
-use Sort::Versions;
 use Cwd;
 use Getopt::Long;
 use Data::Dumper;
 use XMLTV;
-use XMLTV::Ask;
 use POSIX qw(strftime mktime);
 use Date::Manip;
 use Algorithm::Diff;
 use List::Compare;
-use Compress::Zlib;
 
 # ---------------------------------------------------------------------------

tv_grab_au

@@ -38 +38 @@
 
 use LWP::UserAgent;
-use Sort::Versions;
 use Cwd;
 use Getopt::Long;
 use Data::Dumper;
-use XMLTV;
 use XMLTV::Ask;
 use POSIX qw(strftime mktime);
-use Date::Manip;
-use Algorithm::Diff;
-use List::Compare;
 use Compress::Zlib;
 
@@ -393 +388 @@
 # -----------------------------------------
 #
+
+# versioncmp from Sort::Versions by Kenneth J. Albanowski
+sub versioncmp( $$ ) {
+    my @A = ($_[0] =~ /([-.]|\d+|[^-.\d]+)/g);
+    my @B = ($_[1] =~ /([-.]|\d+|[^-.\d]+)/g);
+
+    my ($A, $B);
+    while (@A and @B) {
+        $A = shift @A;
+        $B = shift @B;
+        if ($A eq '-' and $B eq '-') {
+            next;
+        } elsif ( $A eq '-' ) {
+            return -1;
+        } elsif ( $B eq '-') {
+            return 1;
+        } elsif ($A eq '.' and $B eq '.') {
+            next;
+        } elsif ( $A eq '.' ) {
+            return -1;
+        } elsif ( $B eq '.' ) {
+            return 1;
+        } elsif ($A =~ /^\d+$/ and $B =~ /^\d+$/) {
+            if ($A =~ /^0/ || $B =~ /^0/) {
+                return $A cmp $B if $A cmp $B;
+            } else {
+                return $A <=> $B if $A <=> $B;
+            }
+        } else {
+            $A = uc $A;
+            $B = uc $B;
+            return $A cmp $B if $A cmp $B;
+        }       
+    }
+    @A <=> @B;
+}
 
 sub query_grabbers