← Back to branch summary

~ubuntu-branches/ubuntu/edgy/libapache2-mod-perl2/edgy-updates

« back to all changes in this revision

Viewing changes to lib/ModPerl/MM.pm

  • Committer: Bazaar Package Importer
  • Author(s): Adam Conrad
  • Date: 2006-03-24 02:48:44 UTC
  • mfrom: (1.1.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20060324024844-73oxqkcj2jmlmh2t
Tags: 2.0.2-2build1
Fake sync to bring in new upstream bugfixes, UVF exception by mdz.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/ModPerl/MM.pm
54
54
}
55
55
 
56
56
sub add_dep {
57
 
    my($string, $targ, $add) = @_;
 
57
    my ($string, $targ, $add) = @_;
58
58
    $$string =~ s/($targ\s+::)/$1 $add/;
59
59
}
60
60
 
61
61
sub add_dep_before {
62
 
    my($string, $targ, $before_targ, $add) = @_;
 
62
    my ($string, $targ, $before_targ, $add) = @_;
63
63
    $$string =~ s/($targ\s+::.*?) ($before_targ)/$1 $add $2/;
64
64
}
65
65
 
66
66
sub add_dep_after {
67
 
    my($string, $targ, $after_targ, $add) = @_;
 
67
    my ($string, $targ, $after_targ, $add) = @_;
68
68
    $$string =~ s/($targ\s+::.*?$after_targ)/$1 $add/;
69
69
}
70
70
 
160
160
    my $build = build_config();
161
161
    my $pm = $self->{PM};
162
162
 
163
 
    while (my($k, $v) = each %PM) {
 
163
    while (my ($k, $v) = each %PM) {
164
164
        if (-e $k) {
165
165
            $pm->{$k} = $v;
166
166
        }