| Line 307... |
Line 307... |
| 307 |
my $vcstag = $Package{$name}{$ver}{vcstag};
|
307 |
my $vcstag = $Package{$name}{$ver}{vcstag};
|
| 308 |
my $mtest = exists ($Package{$name}{$ver}{build} ) || '0';
|
308 |
my $mtest = exists ($Package{$name}{$ver}{build} ) || '0';
|
| 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 |
{
|
- |
|
| 314 |
my $path = $1 || '';
|
313 |
my $path = $1 || '';
|
| 315 |
my $label = $2 || '';
|
314 |
my $label = $2 || '';
|
| 316 |
push @reason1, 'No Label' unless ( $label );
|
315 |
push @reason1, 'No Label' unless ( $label );
|
| 317 |
push @reason1, 'Bad Label, N/A' if ( $label =~ m~^N/A$~i || $label =~ m~^na$~i );
|
316 |
push @reason1, 'Bad Label, N/A' if ( $label =~ m~^N/A$~i || $label =~ m~^na$~i );
|
| 318 |
|
317 |
|
| Line 321... |
Line 320... |
| 321 |
push @reason1, 'Bad Path, dpkg' if ( $path =~ m~^/dpkg_archive~ || $path =~ m~^dpkg_archive~ );
|
320 |
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 );
|
321 |
push @reason1, 'Bad Path, http' if ( $path =~ m~^http:~i );
|
| 323 |
push @reason1, 'Bad Path, Drive' if ( $path =~ m~^[A-Za-z]\:~ );
|
322 |
push @reason1, 'Bad Path, Drive' if ( $path =~ m~^[A-Za-z]\:~ );
|
| 324 |
push @reason1, 'Bad Path, UNC' if ( $path =~ m~^//~ );
|
323 |
push @reason1, 'Bad Path, UNC' if ( $path =~ m~^//~ );
|
| 325 |
push @reason1, 'Bad Path, Relative' unless ( $path =~ m~^/~ );
|
324 |
push @reason1, 'Bad Path, Relative' unless ( $path =~ m~^/~ );
|
| - |
|
325 |
|
| 326 |
}
|
326 |
} elsif ( $vcstag =~ m~^SVN::(.*)?$~ ) {
|
| 327 |
else
|
327 |
my $url = $1;
|
| - |
|
328 |
push @reason1, 'Bad Path, https' if ( $url =~ m~^https:~i );
|
| - |
|
329 |
push @reason1, 'Bad Path, http' if ( $url =~ m~^http:~i );
|
| - |
|
330 |
push @reason1, 'Bad Path, svn' if ( $url =~ m~^svn:~i );
|
| - |
|
331 |
push @reason1, 'Bad Path, file' if ( $url =~ m~^file:~i );
|
| - |
|
332 |
push @reason1, 'Bad Path, Begins with /' if ( $url =~ m~^/~i );
|
| - |
|
333 |
|
| 328 |
{
|
334 |
} else {
|
| 329 |
push @reason1, 'Bad Version Control Information';
|
335 |
push @reason1, 'Bad Version Control Information';
|
| 330 |
}
|
336 |
}
|
| 331 |
|
337 |
|
| 332 |
|
- |
|
| 333 |
push @reason2, 'No Build System' unless ( exists ($Package{$name}{$ver}{build} ) );
|
338 |
push @reason2, 'No Build System' unless ( exists ($Package{$name}{$ver}{build} ) );
|
| 334 |
|
339 |
|
| 335 |
unless ( @reason1 )
|
340 |
unless ( @reason1 )
|
| 336 |
{
|
341 |
{
|
| 337 |
my $vname = "$name $ver";
|
342 |
my $vname = "$name $ver";
|