Subversion Repositories DevTools

Rev

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

Rev 429 Rev 2021
Line 816... Line 816...
816 
                my $base = $entry->getBase(3);
 816 
                my $base = $entry->getBase(3);
817 
                next unless ( defined $base );
 817 
                next unless ( defined $base );
818 
                if ( -d $base . '/' . $src_dir )
 818 
                if ( -d $base . '/' . $src_dir )
819 
                {
 819 
                {
820 
                    push @path, $base;
 820 
                    push @path, $base;
- 
 
 821 
                    $from_interface = 1
- 
 
 822 
                        if ( $entry->{'TYPE'} eq 'interface' );
821 
                }
 823 
                }
822 
            }
 824 
            }
823 
 
 825 
 
824 
            Error ("CopyDir: Cannot find source dir in any package: $src_dir")
 826 
            Error ("CopyDir: Cannot find source dir in any package: $src_dir")
825 
                if ( $#path < 0 );
 827 
                if ( $#path < 0 );