826     }

   826     }

   827     

   827     

   828     return 1;

   828     return 1;

   829 }

   829 }

   830 

   830 

   832     my $src = shift;

   833     my $src = shift;

   833     my $is_tarball = 0;

   834     my $is_tarball = 0;

   834     my $src_path;

   835     my $src_path;

   835 

   836 

   836     if ($src =~ /\.(tar\.gz|tgz|tar\.bz2|tar\.bzip2)$/) {

   837     if ($src =~ /\.(tar\.gz|tgz|tar\.bz2|tar\.bzip2)$/) {

   884 

   885 

   885     foreach my $src (@sources) {

   886     foreach my $src (@sources) {

   886 	if (not defined ($src)) {

   887 	if (not defined ($src)) {

   887 	    next;

   888 	    next;

   888 	}

   889 	}

   890 	if (not defined ($src_path)) {

   891 	if (not defined ($src_path)) {

   891 	    return 0;

   892 	    return 0;

   892 	}

   893 	}

   893 

   894 

   894 	msg_info (2, "   copying $src");

   895 	msg_info (2, "   copying $src");