Subversion Repositories DevTools

Rev

Rev 6281 | Rev 6387 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6281 Rev 6294
Line 1169... Line 1169...
1169 
#
 1169 
#
1170 
sub pkgFindTarBall
 1170 
sub pkgFindTarBall
1171 
{
 1171 
{
1172 
    my $item = $File::Find::name;
 1172 
    my $item = $File::Find::name;
1173 
    my $base = File::Basename::basename($item);
 1173 
    my $base = File::Basename::basename($item);
1174 
    my $niceBase = substr ( $item, 1+length ($SRC_ROOT) );
 - 
 
1175 
    my $type;
 1174 
    my $type;
1176 
 
 1175 
 
1177 
    #
 1176 
    #
1178 
    #   Ignore the top level directory
 1177 
    #   Ignore the top level directory
1179 
    #
 1178 
    #
1180 
    return
 - 
 
1181 
        if ( $item eq $SRC_ROOT );
 1179 
    return if ( $item eq $SRC_ROOT );
1182 
 
 1180 
 
1183 
    #
 1181 
    #
1184 
    #   Determine type of this item
 1182 
    #   Determine type of this item
1185 
    #       file
 1183 
    #       file
1186 
    #       link, badlink
 1184 
    #       link, badlink
1187 
    #       dir
 1185 
    #       dir
1188 
    if ( -l $item)
 1186 
    if ( -l $item)
1189 
    {
 1187 
    {
- 
 
 1188 
        my $niceBase = substr ( $item, 1+length ($SRC_ROOT) );
1190 
        if (TestSymlink( $niceBase,$_)) {
 1189 
        if (TestSymlink( $niceBase,$_)) {
1191 
            #
 1190 
            #
1192 
            # Broken/Bad symlink
 1191 
            # Broken/Bad symlink
1193 
            #   Remove it from the 'pkg'
 1192 
            #   Remove it from the 'pkg'
1194 
            #   Could try other ways of excluding it from the tar, but this is the simplest
1193 
            #   Could try other ways of excluding it from the tar, but this is the simplest