| Line 309... |
Line 309... |
| 309 |
my @reason1; # can't extract files
|
309 |
my @reason1; # can't extract files
|
| 310 |
my @reason2; # Others
|
310 |
my @reason2; # Others
|
| 311 |
push @reason1, 'No VCS Info' unless ( $vcstag );
|
311 |
push @reason1, 'No VCS Info' unless ( $vcstag );
|
| 312 |
if ( $vcstag =~ m~^CC::(.*?)(::(.+))?$~ )
|
312 |
if ( $vcstag =~ m~^CC::(.*?)(::(.+))?$~ )
|
| 313 |
{
|
313 |
{
|
| 314 |
my $path = $1;
|
314 |
my $path = $1 || '';
|
| 315 |
my $label = $2;
|
315 |
my $label = $2 || '';
|
| 316 |
push @reason1, 'No Label' unless ( $label );
|
316 |
push @reason1, 'No Label' unless ( $label );
|
| 317 |
push @reason1, 'Bad Label, N/A' if ( $label =~ s~^N/A$~~i || $label =~ s~^na$~~i );
|
317 |
push @reason1, 'Bad Label, N/A' if ( $label =~ m~^N/A$~i || $label =~ m~^na$~i );
|
| 318 |
|
318 |
|
| 319 |
push @reason1, 'No Source Path' unless ( $path );
|
319 |
push @reason1, 'No Source Path' unless ( $path );
|
| 320 |
push @reason1, 'Bad Path, N/A' if ( $path =~ m~^N/A$~i || $path =~ m~^na$~i );
|
320 |
push @reason1, 'Bad Path, N/A' if ( $path =~ m~^N/A$~i || $path =~ m~^na$~i );
|
| 321 |
push @reason1, 'Bad Path, dpkg' if ( $path =~ m~^/dpkg_archive~ || $path =~ m~^dpkg_archive~ );
|
321 |
push @reason1, 'Bad Path, dpkg' if ( $path =~ m~^/dpkg_archive~ || $path =~ m~^dpkg_archive~ );
|
| 322 |
push @reason1, 'Bad Path, http' if ( $path =~ m~^http:~i );
|
322 |
push @reason1, 'Bad Path, http' if ( $path =~ m~^http:~i );
|
| 323 |
push @reason1, 'Bad Path, Drive' if ( $path =~ m~^[A-Za-z]\:~ );
|
323 |
push @reason1, 'Bad Path, Drive' if ( $path =~ m~^[A-Za-z]\:~ );
|
| 324 |
push @reason1, 'Bad Path, UNC' if ( $path =~ m~^//~ );
|
324 |
push @reason1, 'Bad Path, UNC' if ( $path =~ m~^//~ );
|
| 325 |
push @reason1, 'Bad Path, Relative' unless ( $path =~ m~^/~ );
|
325 |
push @reason1, 'Bad Path, Relative' unless ( $path =~ m~^/~ );
|
| 326 |
}
|
326 |
}
|
| - |
|
327 |
else
|
| - |
|
328 |
{
|
| - |
|
329 |
push @reason1, 'Bad Version Control Information';
|
| - |
|
330 |
}
|
| 327 |
|
331 |
|
| 328 |
|
332 |
|
| 329 |
push @reason2, 'No Build System' unless ( exists ($Package{$name}{$ver}{build} ) );
|
333 |
push @reason2, 'No Build System' unless ( exists ($Package{$name}{$ver}{build} ) );
|
| 330 |
|
334 |
|
| 331 |
unless ( @reason1 )
|
335 |
unless ( @reason1 )
|