* curl doesn't tell us what it is downloading, so be more verbose.
* Don't download files with curl unless they've been modified.
This commit is contained in:
@@ -1,6 +1,8 @@
|
|||||||
1.79
|
1.79
|
||||||
|
|
||||||
* Extract dependencies from tests.
|
* Extract dependencies from tests.
|
||||||
|
* curl doesn't tell us what it is downloading, so be more verbose.
|
||||||
|
* Don't download files with curl unless they've been modified.
|
||||||
|
|
||||||
1.78 2009-01-16
|
1.78 2009-01-16
|
||||||
|
|
||||||
|
|||||||
@@ -55,7 +55,8 @@ fi
|
|||||||
|
|
||||||
mkdir -p $( dirname $packages )
|
mkdir -p $( dirname $packages )
|
||||||
|
|
||||||
curl $quiet -R -o $packages $CPAN/modules/$( basename $packages )
|
[ -z "$quiet" ] && echo "Fetching $( basename $packages )..." >&2
|
||||||
|
curl $quiet -R -z $packages -o $packages $CPAN/modules/$( basename $packages )
|
||||||
|
|
||||||
for module in "$@" ; do
|
for module in "$@" ; do
|
||||||
tar=$( zgrep '^'$module' ' $packages | awk '{print $3}' )
|
tar=$( zgrep '^'$module' ' $packages | awk '{print $3}' )
|
||||||
@@ -66,7 +67,11 @@ for module in "$@" ; do
|
|||||||
fi
|
fi
|
||||||
|
|
||||||
if [ $only_url -eq 0 ] ; then
|
if [ $only_url -eq 0 ] ; then
|
||||||
curl $quiet -R -o "$( basename $tar )" $CPAN/authors/id/$tar
|
[ -z "$quiet" ] && echo "Fetching $tar..." >&2
|
||||||
|
curl $quiet -R \
|
||||||
|
-z "$( basename $tar )" \
|
||||||
|
-o "$( basename $tar )" \
|
||||||
|
$CPAN/authors/id/$tar
|
||||||
else
|
else
|
||||||
echo "$module: $CPAN/authors/id/$tar"
|
echo "$module: $CPAN/authors/id/$tar"
|
||||||
fi
|
fi
|
||||||
|
|||||||
Reference in New Issue
Block a user