# $Author: domi $ # $Date: 2004/12/07 12:58:38 $ # $Name: $ # $Revision: 1.3 $ use ExtUtils::MakeMaker; my @files= qw(Hash/CustomStorage.pm Array/CustomStorage.pm) ; my %PM = map ( ( "$_" => '$(INST_LIB)'."/Tie/$_" ), @files ) ; my %M3 = map { my $save = $_ ; s/\.pm$/.3pm/ ; s!/!::!g; ( $save => '$(INST_MAN3DIR)/Tie::'."$_" ) } @files ; #print join("\n", values %M3),"\n"; exit ; WriteMakefile ( NAME => 'Tie-Hash-Array-CustomStorage', VERSION => '1.002', ABSTRACT => 'Tied hash or array with tied or object storage', AUTHOR => 'Dominique Dumont (domi@komarr.grenoble.hp.com)', PM => \%PM , MAN3PODS => \%M3, );