Update of /cvsroot/leaf/src/bering-uclibc/buildtool/buildtool
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24160
Modified Files:
Download.pm
Log Message:
- load cvspserver code only if a download is requested, throw error message if it is
not installed
Index: Download.pm
===================================================================
RCS file: /cvsroot/leaf/src/bering-uclibc/buildtool/buildtool/Download.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Download.pm 10 Apr 2004 01:07:44 -0000 1.6
--- Download.pm 23 Apr 2004 14:50:43 -0000 1.7
***************
*** 7,11 ****
use buildtool::DownloadTypes::Ftp;
use buildtool::DownloadTypes::File;
- use buildtool::DownloadTypes::CvsPserver;
use buildtool::Common::Object;
use Carp;
--- 7,10 ----
***************
*** 161,164 ****
--- 160,169 ----
$self->die("download failed", $object->getErrorMsg() . " \n") if
($object->download()== 0);
} elsif ($dltype eq "cvspserver") {
+ # try to load pserver:
+ eval "use buildtool::DownloadTypes::CvsPserver";
+ if ($@) {
+ $self->die("loading buildtool::DownloadTypes::CvsPserver failed!",
"if you want to use pserver support install libcvs-perl(>1.0) from:
http://www.ucbering.de/download/libcvs-perl.tgz";);
+ }
+
my $revision = $files{$file}{'revision'};
if (!$revision || $revision eq "") {
-------------------------------------------------------
This SF.net email is sponsored by: The Robotic Monkeys at ThinkGeek
For a limited time only, get FREE Ground shipping on all orders of $35
or more. Hurry up and shop folks, this offer expires April 30th!
http://www.thinkgeek.com/freeshipping/?cpg=12297
_______________________________________________
Leaf-cvs-commits mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/leaf-cvs-commits
