Inline::MakeMaker

WriteInlineMakefile was deprecated in 2002. This warning is from 2014. WriteInlineMakefile will soon be removed. Please change this Makefile.PL to use WriteMakefile instead.

EOF goto &WriteMakefile; }

sub WriteMakefile { my %args = @_; my $name = $args{NAME} or croak ``Inline::MakeMaker::WriteMakefile requires the NAME parameter\n''; my $version = '';

    croak <<END unless (defined $args{VERSION} or defined $args{VERSION_FROM});
Inline::MakeMaker::WriteMakefile requires either the VERSION or VERSION_FROM
parameter.
END
    if (defined $args{VERSION}) {
        $version = $args{VERSION};
    }
    else {
        $version = ExtUtils::MM_Unix->parse_version($args{VERSION_FROM})
          or croak "Can't determine version for $name\n";
    }
    croak "Invalid 'version.pm' version '$version' for '$name'.\n"
        unless version::is_lax($version);

    # Provide a convenience rule to clean up Inline's messes
    $args{clean} = { FILES => "_Inline *.inl " }
    unless defined $args{clean};

    # Add Inline to the dependencies
    $args{PREREQ_PM}{Inline} = '0.44' unless defined $args{PREREQ_PM}{Inline};

    my $mm = &ExtUtils::MakeMaker::WriteMakefile(%args);

    my (@objects, @obj_rules);

    if (@{$mm->{PMLIBDIRS}} && $mm->{PM}) {
        # Sort them longest first so we'll match subdirectories before their parents
        my @libdirs = sort { length($b) <=> length($a) } @{$mm->{PMLIBDIRS}};

        for my $path (keys %{$mm->{PM}}) {
            for my $lib (@libdirs) {
                if (index($path,$lib) == 0) {
                    my ($vol, $dirs, $file) = File::Spec->splitpath(substr($path, length($lib)+1));
                    my @dirs = File::Spec->splitdir($dirs);
                    pop @dirs unless length($dirs[$#dirs]);
                    next unless ($file =~ /.pm$/);
                    $file =~ s/\.[^.]+$//;

                    push @objects, join('::', @dirs, $file);
                    push @obj_rules, join('-', @dirs, "$file.inl");
                    last;
                }
                croak "Failed to find module path for '$path'";
            }
        }
    } else {
        # no modules found in PMLIBDIRS so assume we've just got $name to do
        @objects = $name;
        $name =~ s/::/-/g;
        @obj_rules = ("$name.inl");
    }

    if (@objects) {
        open MAKEFILE, '>> Makefile'
          or croak "Inline::MakeMaker::WriteMakefile can't append to Makefile:\n$!";

        print MAKEFILE <<MAKEFILE;
# Well, not quite. Inline::MakeMaker is adding this:

# --- MakeMaker inline section:

MAKEFILE for (0..$#objects) { # the subdivision in hashes is done to avoid {}, which break dmake print MAKEFILE <<MAKEFILE; $obj_rules[$_] : pm_to_blib \t\$(PERL) -Mblib -MInline=NOISY,_INSTALL_ -M$objects[$_] -e``my %A = (modinlname => '$obj_rules[$_]', module => '$objects[$_]'); my %S = (API => \\%A); Inline::satisfy_makefile_dep(\\%S);'' $version \$(INST_ARCHLIB) MAKEFILE }

print MAKEFILE ``\ndynamic :: '',join(' ',@obj_rules),``\n'';

print MAKEFILE <<MAKEFILE;

# The End is here. MAKEFILE

        close MAKEFILE;
    }
}

1;