[libcatalyst-modules-perl] 03/12: shortened progress messages
Damyan Ivanov
dmn at moszumanska.debian.org
Thu May 8 14:59:12 UTC 2014
This is an automated email from the git hooks/post-receive script.
dmn pushed a commit to branch dam-bundle-2.0
in repository libcatalyst-modules-perl.
commit 1d59fb00383fc52d299b95e5a30eb5571432ffe6
Author: Damyan Ivanov <dmn at debian.org>
Date: Thu May 8 10:15:59 2014 +0000
shortened progress messages
---
debian/fetch | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/debian/fetch b/debian/fetch
index 1d3bf7f..873b794 100755
--- a/debian/fetch
+++ b/debian/fetch
@@ -19,7 +19,7 @@ my $sc = $term->Tputs('sc');
my $rc = $term->Tputs('rc');
sub doing {
- print $sc, @_;
+ print $sc, @_, '...';
}
sub done {
@@ -42,7 +42,7 @@ sub fetch_dist {
);
my $url = "https://metacpan.org/release/$dist";
- doing("Fetching $url...");
+ doing("metacpan.org page");
$ua->get($url);
done();
@@ -59,13 +59,13 @@ sub fetch_dist {
my $tarball_file = File::Spec->catfile( $tmp_dir, $fn );
- doing("Downloading " . $download_link->url . '...');
+ doing("Downloading");
$ua->get( $download_link, ':content_file' => $tarball_file );
done();
my $extract_dir = File::Spec->catdir($tmp_dir, 'extract');
my $tarball = Archive::Extract->new( archive => $tarball_file );
- doing("Extracting $tarball_file...");
+ doing("Extracting");
$tarball->extract( to => $extract_dir );
done();
@@ -84,13 +84,13 @@ sub fetch_dist {
die "Nothing in the archive" unless $extracted_tree;
my $destination = File::Spec->catdir( 'sources', $dist );
- doing("Removing $destination...");
+ doing("Removing current tree");
File::Remove::remove( \1, $destination );
done();
$extracted_tree = File::Spec->catdir( $extract_dir, $extracted_tree );
- doing("Copying $extracted_tree to $destination...");
+ doing("Copying extracted source");
File::Copy::Recursive::dircopy( $extracted_tree, $destination );
done();
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcatalyst-modules-perl.git
More information about the Pkg-perl-cvs-commits
mailing list