use 5.010; # you must - repeat MUST have Perl 5.8 or greater !!!! use ExtUtils::MakeMaker; use Getopt::Long; use vars qw($opt_source $opt_addlibs $opt_embed_manifest $opt_help); &GetOptions("source=s", \$opt_source, "addlibs=s", \$opt_addlibs, "embed-manifest", \$opt_embed_manifest, "help", \$opt_help); # spew forth the help if ($opt_help){ print <MM::subdirs; if ($^O =~ /MSWin32/i) { $section =~ s|(cd \.\.)(\s*$)|$1/..$2|m; } return $section; } sub MY::ppd { my $self = shift; my $section = $self->MM::ppd; if ($^O =~ /MSWin32/i) { $section =~ s|Test-More|Test::More|m; } return $section; } WriteMakefile( clean => { 'FILES' => 'CPICTRC* ./.rfc_cache/* ./examples/.rfc_cache/* ./examples/*.trc ./examples/CPICTRC* *.inl *.trc testconn ./examples/testconn *~ core test*.txt *.tar.gz *.i *.ii' }, dist => { 'TARFLAGS' => 'cvf', 'COMPRESS' => 'gzip -9f', 'SUFFIX' => '.tgz'}, 'DIR' => [ 'lib/SAPNW' ], 'PREREQ_PM' => { 'YAML' => 0, 'Test::More' => 0 }, 'AUTHOR' => 'Piers Harding ', 'ABSTRACT' => 'sapnwrfc - SAP Netweaver RFC support for Perl', 'VERSION_FROM' => 'sapnwrfc.pm', 'NAME' => 'sapnwrfc', );