Changeset 68 for trunk


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/debbuild

    r67 r68  
    779779    my $tmp = '';
    780780    foreach my $dep (@deps) {
     781      # Hack up the perl(Class::SubClass) deps into something dpkg can understand.
     782      # May or may not be versioned.
     783      # We do this first so the version rewriter can do its magic next.
     784      if (my ($mod,$ver) = ($dep =~ /^perl\(([A-Za-z0-9\:\-]+)\)([><=]+.+)?/) ) {
     785        $mod =~ s/^perl\(//;
     786        $mod =~ s/\)$//;
     787        $mod =~ s/::/-/g;
     788        $mod =~ tr/A-Z/a-z/;
     789        $mod = "lib$mod-perl";
     790        $mod .= $ver if $ver;
     791        $dep = $mod;
     792      }
    781793      if (my ($name,$rel,$value) = ($dep =~ /^([a-zA-Z0-9._-]+)([><=]+)([a-zA-Z0-9._-]+)$/)) {
    782794        $tmp .= ", $name ($rel $value)";
Note: See TracChangeset for help on using the changeset viewer.