#!/usr/bin/env perl use inc::Module::Install; name ('PAR-Dist-InstallPPD-GUI'); author ('Steffen Mueller (smueller@cpan.org)'); abstract ('GUI frontend for PAR::Dist::InstallPPD'); version_from ('lib/PAR/Dist/InstallPPD/GUI.pm'); license ('perl'); install_script('bin/parinstallppdgui'); requires 'PAR::Dist::InstallPPD' => '0.01'; requires 'perl' => '5.006'; requires 'Tk' => '0'; requires 'Tk::Dialog' => '0'; requires 'Tk::ROText' => '0'; requires 'IO::Dir' => '0'; requires 'IPC::Run' => '0.80'; requires 'File::UserConfig' => '0'; requires 'Config::IniFiles' => '0'; requires 'PAR::Dist::FromPPD' => '0.02'; requires 'ExtUtils::Install' => '0'; # generate default config from module: use File::Spec; mkdir('config'); open my $fh, '<', File::Spec->catfile(qw/lib PAR Dist InstallPPD GUI.pm/) or die "Could not read module source code: $!"; open my $oh, '>', File::Spec->catfile(qw/config config.ini/); while (<$fh>) { last if /^__DATA__\s*$/; } while (<$fh>) { print $oh $_; } close $fh; close $oh; install_share 'config'; &WriteAll ( );