diff options
| author | Jesse Luehrs <doy@tozt.net> | 2012-06-18 15:57:41 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2012-06-18 17:10:26 -0500 |
| commit | 618ac2f65631f2380ef4198f25f0d4d145f86398 (patch) | |
| tree | 3be51b76311d7d9e2d28171c0eb126d4aa1f1eaf /Porting/sync-with-cpan | |
| parent | 3a4316ccbaa558573deee927299743566a0c24b2 (diff) | |
| download | perl-618ac2f65631f2380ef4198f25f0d4d145f86398.tar.gz | |
get the dir name from the tarball filename
Filter::Util::Call comes from Filter-x.yz.tar.gz for instance, which
untars to Filter-x.yz, not Filter-Util-Call-x.yz as it was previously
assuming
Diffstat (limited to 'Porting/sync-with-cpan')
| -rwxr-xr-x | Porting/sync-with-cpan | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Porting/sync-with-cpan b/Porting/sync-with-cpan index f85e50ee2f..2c66f8522f 100755 --- a/Porting/sync-with-cpan +++ b/Porting/sync-with-cpan @@ -220,7 +220,6 @@ else { } my $old_dir = "$pkg_dir-$old_version"; -my $new_dir = "$pkg_dir-$new_version"; say "Cleaning out old directory"; system git => 'clean', '-dfxq', $pkg_dir; @@ -228,6 +227,7 @@ system git => 'clean', '-dfxq', $pkg_dir; say "Unpacking $new_file"; system tar => 'xfz', $new_file; +(my $new_dir = $new_file) =~ s/\.tar\.gz//; say "Renaming directories"; rename $pkg_dir => $old_dir; |