aboutsummaryrefslogtreecommitdiffstats
path: root/cpan2tgz
diff options
context:
space:
mode:
authorJason Woodward2004-11-17 03:05:31 +0000
committerJason Woodward2004-11-17 03:05:31 +0000
commit405c6b4c4ad41917fc4695b9683563664343064d (patch)
tree022ca06841eea8d8234e220f584b4c5e77b670b1 /cpan2tgz
parent1c6f645e16995b09e158a93451bb388375e3b008 (diff)
downloadcpan2tgz-405c6b4c4ad41917fc4695b9683563664343064d.tar.gz
formatting updates of system() calls
Diffstat (limited to 'cpan2tgz')
-rwxr-xr-xcpan2tgz10
1 files changed, 5 insertions, 5 deletions
diff --git a/cpan2tgz b/cpan2tgz
index 422b77e..7b8e4f7 100755
--- a/cpan2tgz
+++ b/cpan2tgz
@@ -26,7 +26,7 @@ use Config;
use CPAN;
use Getopt::Long;
-our $VERSION = "0.1";
+our $VERSION = "0.2";
$ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin";
my (%PACKAGE_CACHE_LIST,$recursive,$install_after_building,$ignore_installed_deps);
@@ -130,10 +130,10 @@ sub do_package {
# build a shell script to fixup the package like Pat's Perl SlackBuild
open(my $script_fh,">$dest_dir/build.sh") or die "Failed to open build.sh for writing: $!";
print $script_fh "cd $dest_dir\n";
- print $script_fh "find . | xargs file | grep \"executable\" | grep ELF | cut -f 1 -d : | xargs strip --strip-unneeded 2> /dev/null\n";
- print $script_fh "find . | xargs file | grep \"shared object\" | grep ELF | cut -f 1 -d : | xargs strip --strip-unneeded 2> /dev/null\n";
- print $script_fh "find ./usr/share/man/ -name \'*.3\' -exec gzip -9 {} \\; 2> /dev/null\n";
- print $script_fh "find ./usr/share/man/ -name \'*.1\' -exec gzip -9 {} \\; 2> /dev/null\n";
+ print $script_fh "find . | xargs file | grep 'executable' | grep ELF | cut -f 1 -d : | xargs strip --strip-unneeded 2> /dev/null\n";
+ print $script_fh "find . | xargs file | grep 'shared object' | grep ELF | cut -f 1 -d : | xargs strip --strip-unneeded 2> /dev/null\n";
+ print $script_fh "find ./usr/share/man/ -name '*.3' -exec gzip -9 {} \\; 2> /dev/null\n";
+ print $script_fh "find ./usr/share/man/ -name '*.1' -exec gzip -9 {} \\; 2> /dev/null\n";
print $script_fh "mv ./usr/share/man ./usr/\n" if( -d "$dest_dir/usr/share/man" );
print $script_fh "chown -R root.bin ./usr/bin\n" if( -d "$dest_dir/usr/bin" );
print $script_fh "chmod 755 ./usr/bin/*\n" if( -d "$dest_dir/usr/bin");