use absolute method rather than messing around with rel2abs

[scpubgit/App-EzPz.git] / bin / ezpz-create-test-ezmlm-install

diff --git a/bin/ezpz-create-test-ezmlm-install b/bin/ezpz-create-test-ezmlm-install
index b766352..8d3be21 100755 (executable)
--- a/bin/ezpz-create-test-ezmlm-install
+++ b/bin/ezpz-create-test-ezmlm-install
@@ -1,5 +1,6 @@
 #!/usr/bin/env perl
 
+use lib (-d 'lib' ? ('lib') : ());
 use strictures 1;
 use IO::All;
 use Cwd;
@@ -8,17 +9,19 @@ use IPC::System::Simple qw(run);
 die "Usage: ezpz-create-test-ezmlm-install ezmlm-source.tgz build-dir install-dir"
   unless @ARGV == 3;
 
-my ($ezmlm_tarball, $build_dir_path, $install_to_path) = @ARGV;
+my ($ezmlm_tarball_path, $build_dir_path, $install_to_path) = @ARGV;
+
+my $ezmlm_tarball = io->file(io->file($ezmlm_tarball_path)->rel2abs);
 
 my $orig_cwd = io->dir(cwd);
 
-my $build_dir = io->dir(io->dir($build_dir_path)->rel2abs);
-my $install_to = io->dir(io->dir($install_to_path)->rel2abs);
+my $build_dir = io->dir($build_dir_path)->absolute;
+my $install_to = io->dir($install_to_path)->absolute;
 
 unless ($build_dir->exists) {
   $build_dir->mkpath;
   $build_dir->chdir;
-  run 'tar', '-xzf', $ezmlm_tarball;
+  run 'tar', 'xzf', $ezmlm_tarball;
   $orig_cwd->chdir;
 }