Changeset 68

Timestamp:

06/20/06 13:14:49 (18 years ago)

Author:

kdeugau

Message:

/trunk

Add expansion/rewriting of perl(Class::SubClass) dependencies.
This functionality will necessarily remain limited due to dpkg's
limited dependency system which has NO provision for something
like rpm's direct handling of perl(Class::SubClass) module
requirements.

File:

• trunk/debbuild (modified) (1 diff)

trunk/debbuild

@@ -779 +779 @@
     my $tmp = '';
     foreach my $dep (@deps) {
+      # Hack up the perl(Class::SubClass) deps into something dpkg can understand.
+      # May or may not be versioned.
+      # We do this first so the version rewriter can do its magic next.
+      if (my ($mod,$ver) = ($dep =~ /^perl\(([A-Za-z0-9\:\-]+)\)([><=]+.+)?/) ) {
+        $mod =~ s/^perl\(//;
+        $mod =~ s/\)$//;
+        $mod =~ s/::/-/g;
+        $mod =~ tr/A-Z/a-z/;
+        $mod = "lib$mod-perl";
+        $mod .= $ver if $ver;
+        $dep = $mod;
+      }
       if (my ($name,$rel,$value) = ($dep =~ /^([a-zA-Z0-9._-]+)([><=]+)([a-zA-Z0-9._-]+)$/)) {
         $tmp .= ", $name ($rel $value)";