WebSVN – DevTools – Diff – /manifest-tool/trunk/src/gbe/DIRECTIVES/ManifestFiles.pm



                foreach my $joiner ( qw(/ .) )
                {
                    my $dir = "$package_dir/bin$joiner$prd$type";
                    UniquePush(\@searchPath, $dir);
                    next unless ( -d $dir );
                    my @files = glob ( "$dir/${base_name}_${version}*.deb" );
                    next unless ( @files );
                    push @debian_file_path, @files;
                    $package_dirs{$package_dir}{used} = 1;
                }
            }

                        $package_dirs{$package_dir}{used} = 1;
                    } elsif ( -e "$dir/${base_name}_${version}_${prd}.deb") {
                        my $file = "$dir/${base_name}_${version}_${prd}.deb";
                        push(@debian_file_path, $file);
                        $package_dirs{$package_dir}{used} = 1;
                    }
                }
            }
        }
    }
 

Subversion Repositories DevTools

(root)/manifest-tool/trunk/src/gbe/DIRECTIVES/ManifestFiles.pm – Rev 6730 → 6734

Rev 6730		Rev 6734
Line 337...		Line 337...
337	`foreach my $joiner ( qw(/ .) )`	337	`foreach my $joiner ( qw(/ .) )`
338	`{`	338	`{`
339	`my $dir = "$package_dir/bin$joiner$prd$type";`	339	`my $dir = "$package_dir/bin$joiner$prd$type";`
340	`UniquePush(\@searchPath, $dir);`	340	`UniquePush(\@searchPath, $dir);`
341	`next unless ( -d $dir );`	341	`next unless ( -d $dir );`
342	`my @files = glob ( "$dir/${base_name}_${version}_*.deb" );`	342	`my @files = glob ( "$dir/${base_name}_${version}*.deb" );`
343	`next unless ( @files );`	343	`next unless ( @files );`
344	`push @debian_file_path, @files;`	344	`push @debian_file_path, @files;`
345	`$package_dirs{$package_dir}{used} = 1;`	345	`$package_dirs{$package_dir}{used} = 1;`
346	`}`	346	`}`
347	`}`	347	`}`
Line 367...		Line 367...
367	`$package_dirs{$package_dir}{used} = 1;`	367	`$package_dirs{$package_dir}{used} = 1;`
368	`} elsif ( -e "$dir/${base_name}_${version}_${prd}.deb") {`	368	`} elsif ( -e "$dir/${base_name}_${version}_${prd}.deb") {`
369	`my $file = "$dir/${base_name}_${version}_${prd}.deb";`	369	`my $file = "$dir/${base_name}_${version}_${prd}.deb";`
370	`push(@debian_file_path, $file);`	370	`push(@debian_file_path, $file);`
371	`$package_dirs{$package_dir}{used} = 1;`	371	`$package_dirs{$package_dir}{used} = 1;`
372	`}`	372	`}`
373	`}`	373	`}`
374	`}`	374	`}`
375	`}`	375	`}`
376	`}`	376	`}`
377		377