App-XUL
view release on metacpan or search on metacpan
lib/App/XUL.pm view on Meta::CPAN
fcopy($utilspath.'/server.pl',
$tmpdir->base().'/'.$name.'/perl/server/server.pl');
fcopy($utilspath.'/../lib/App/XUL/XML.pm',
$tmpdir->base().'/'.$name.'/perl/modules/App/XUL/XML.pm');
fcopy($utilspath.'/../lib/App/XUL/Object.pm',
$tmpdir->base().'/'.$name.'/perl/modules/App/XUL/Object.pm');
# chmod certain files
chmod(0755, $tmpdir->base().'/'.$name.'/start_macosx.pl');
chmod(0755, $tmpdir->base().'/'.$name.'/start_win.pl');
chmod(0755, $tmpdir->base().'/'.$name.'/start_linux.pl');
# move tmpdir to final destination
rename($tmpdir->base().'/'.$name, $path);
}
##############################################################################
elsif ($os eq 'macosx') {
my $name = $self->{'name'};
lib/App/XUL.pm view on Meta::CPAN
fcopy($utilspath.'/server.pl',
$tmpdir->base().'/'.$name.'.app/Contents/Resources/perl/server/server.pl');
fcopy($utilspath.'/../lib/App/XUL/XML.pm',
$tmpdir->base().'/'.$name.'.app/Contents/Resources/perl/modules/App/XUL/XML.pm');
fcopy($utilspath.'/../lib/App/XUL/Object.pm',
$tmpdir->base().'/'.$name.'.app/Contents/Resources/perl/modules/App/XUL/Object.pm');
# chmod certain files
chmod(0755, $tmpdir->base().'/'.$name.'.app/Contents/MacOS/start.pl');
# move tmpdir to final destination
rename($tmpdir->base().'/'.$name.'.app', $path);
}
else {
die "Error: os '$os' not implemented yet\n";
}
}
################################################################################
( run in 0.306 second using v1.01-cache-2.11-cpan-496ff517765 )