[libcatalyst-modules-perl] 03/12: shortened progress messages

[Damyan Ivanov]

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 <d...@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

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits