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