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 5e984a7000533319d9b60e57bd40646faa5eb4fc
Author: Damyan Ivanov <d...@debian.org>
Date:   Thu May 8 10:12:44 2014 +0000

    update all sources unless asked to update specific source
---
 debian/fetch | 104 ++++++++++++++++++++++++++++++++---------------------------
 1 file changed, 57 insertions(+), 47 deletions(-)

diff --git a/debian/fetch b/debian/fetch
index c69ad74..1d3bf7f 100755
--- a/debian/fetch
+++ b/debian/fetch
@@ -28,65 +28,75 @@ sub done {
 
 $| = 1;
 
-my $dist = shift @ARGV;
+my $ua = WWW::Mechanize->new;
 
-my $tmp_dir = File::Temp->newdir(
-    "bundle-fetch-$dist-XXXXXXX",
-    DIR     => '.',
-    CLEANUP => 1,
-);
+sub fetch_dist {
+    my $dist = shift;
 
-my $ua = WWW::Mechanize->new;
+    print "$dist... ";
 
-my $url = "https://metacpan.org/release/$dist";;
-doing("Fetching $url...");
-$ua->get($url);
-done();
+    my $tmp_dir = File::Temp->newdir(
+        "bundle-fetch-$dist-XXXXXXX",
+        DIR     => '.',
+        CLEANUP => 1,
+    );
 
-my $download_link = $ua->find_link(
-    text_regex => qr(Download),
-    url_regex  => qr(/$dist-.+\.(?:zip|tar\.(?:gz|xz|bz2|lzma)))
-);
+    my $url = "https://metacpan.org/release/$dist";;
+    doing("Fetching $url...");
+    $ua->get($url);
+    done();
 
-my $fn = $download_link->url;
-$fn =~ s{.+/}{};
-$fn or die "No file name in response";
-die "Invalid file name '$fn'"
-    if $fn =~ m{[/\\:\ \$\%'"]} or $fn !~ /^[\x21-\x7f]+$/;
+    my $download_link = $ua->find_link(
+        text_regex => qr(Download),
+        url_regex  => qr(/$dist-.+\.(?:zip|tar\.(?:gz|xz|bz2|lzma)))
+    );
 
-my $tarball_file = File::Spec->catfile( $tmp_dir, $fn );
+    my $fn = $download_link->url;
+    $fn =~ s{.+/}{};
+    $fn or die "No file name in response";
+    die "Invalid file name '$fn'"
+        if $fn =~ m{[/\\:\ \$\%'"]} or $fn !~ /^[\x21-\x7f]+$/;
 
-doing("Downloading " . $download_link->url . '...');
-$ua->get( $download_link, ':content_file' => $tarball_file );
-done();
+    my $tarball_file = File::Spec->catfile( $tmp_dir, $fn );
 
-my $extract_dir = File::Spec->catdir($tmp_dir, 'extract');
-my $tarball = Archive::Extract->new( archive => $tarball_file );
-doing("Extracting $tarball_file...");
-$tarball->extract( to => $extract_dir );
-done();
+    doing("Downloading " . $download_link->url . '...');
+    $ua->get( $download_link, ':content_file' => $tarball_file );
+    done();
 
-my $dir = DirHandle->new($extract_dir);
-my $extracted_tree;
-while ( defined( $_ = $dir->read ) ) {
-    next if $_ eq '.';
-    next if $_ eq '..';
+    my $extract_dir = File::Spec->catdir($tmp_dir, 'extract');
+    my $tarball = Archive::Extract->new( archive => $tarball_file );
+    doing("Extracting $tarball_file...");
+    $tarball->extract( to => $extract_dir );
+    done();
 
-    die "Multiple directories extracted ($extracted_tree, $_)"
-        if $extracted_tree;
+    my $dir = DirHandle->new($extract_dir);
+    my $extracted_tree;
+    while ( defined( $_ = $dir->read ) ) {
+        next if $_ eq '.';
+        next if $_ eq '..';
 
-    $extracted_tree = $_;
-}
+        die "Multiple directories extracted ($extracted_tree, $_)"
+            if $extracted_tree;
+
+        $extracted_tree = $_;
+    }
 
-die "Nothing in the archive" unless $extracted_tree;
+    die "Nothing in the archive" unless $extracted_tree;
 
-my $destination = File::Spec->catdir( 'sources', $dist );
-doing("Removing $destination...");
-File::Remove::remove( \1, $destination );
-done();
+    my $destination = File::Spec->catdir( 'sources', $dist );
+    doing("Removing $destination...");
+    File::Remove::remove( \1, $destination );
+    done();
+
+    $extracted_tree = File::Spec->catdir( $extract_dir, $extracted_tree );
+
+    doing("Copying $extracted_tree to $destination...");
+    File::Copy::Recursive::dircopy( $extracted_tree, $destination );
+    done();
+
+    print "done.\n";
+}
 
-$extracted_tree = File::Spec->catdir( $extract_dir, $extracted_tree );
+@ARGV = map { s{^sources/}{}; $_ } glob('sources/*') unless @ARGV;
 
-doing("Copying $extracted_tree to $destination...");
-File::Copy::Recursive::dircopy( $extracted_tree, $destination );
-done();
+fetch_dist($_) for @ARGV;

-- 
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

Reply via email to