← 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/MapUtil.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/MapUtil.pm
114
114
    my $self = shift;
115
115
    my $package = ref($self) || $self;
116
116
 
117
 
    my($wanted) = $package =~ /($map_classes)/io;
 
117
    my ($wanted) = $package =~ /($map_classes)/io;
118
118
 
119
 
    my(@dirs) = (($MapDir || './xs'), ModPerl::MapUtil::xs_glue_dirs());
 
119
    my (@dirs) = (($MapDir || './xs'), ModPerl::MapUtil::xs_glue_dirs());
120
120
 
121
121
    my @files;
122
122
 
143
143
}
144
144
 
145
145
sub parse_keywords {
146
 
    my($self, $line) = @_;
 
146
    my ($self, $line) = @_;
147
147
    my %words;
148
148
 
149
149
    for my $pair (split /\s+/, $line) {
150
 
        my($key, $val) = split /=/, $pair;
 
150
        my ($key, $val) = split /=/, $pair;
151
151
 
152
152
        unless ($key and $val) {
153
153
            die "parse error ($ModPerl::MapUtil::MapFile line $.)";
160
160
}
161
161
 
162
162
sub parse_map_files {
163
 
    my($self) = @_;
 
163
    my ($self) = @_;
164
164
 
165
165
    my $map = {};
166
166