WebSVN – DevTools – Diff – /core_devl/trunk/TOOLS/create_dpkg.pl



#
#------------------------------------------------------------------------------
{
    my $item = $File::Find::name;
    my $base = File::Basename::basename($item);
 
 
    #
    #   Calculate the target directory name
    #
    my $target = $item;

                #   Use: Unix libraries are created as two files:
                #        lib.xxxx.so -> libxxxx.so.vv.vv.vv
                #
                if ( -l $item )
                {
                    my $niceBase = substr ( $item, 1+length ($SRC_ROOT) );
                    if (TestSymlink( $niceBase,$_))
                    {
                        # Don't copy broken Symlinks
                        # Perhaps this should be an error - but is will break escrow builds
                        #

Subversion Repositories DevTools

(root)/core_devl/trunk/TOOLS/create_dpkg.pl – Rev 6294 → 6387

Rev 6294		Rev 6387
Line 796...		Line 796...
796	`#`	796	`#`
797	`#------------------------------------------------------------------------------`	797	`#------------------------------------------------------------------------------`
798	`{`	798	`{`
799	`my $item = $File::Find::name;`	799	`my $item = $File::Find::name;`
800	`my $base = File::Basename::basename($item);`	800	`my $base = File::Basename::basename($item);`
801	`my $niceBase = substr ( $item, 1+length ($SRC_ROOT) );`	-
802		801
803	`#`	802	`#`
804	`# Calculate the target directory name`	803	`# Calculate the target directory name`
805	`#`	804	`#`
806	`my $target = $item;`	805	`my $target = $item;`
Line 850...		Line 849...
850	`# Use: Unix libraries are created as two files:`	849	`# Use: Unix libraries are created as two files:`
851	`# lib.xxxx.so -> libxxxx.so.vv.vv.vv`	850	`# lib.xxxx.so -> libxxxx.so.vv.vv.vv`
852	`#`	851	`#`
853	`if ( -l $item )`	852	`if ( -l $item )`
854	`{`	853	`{`
-		854	`my $niceBase = substr ( $item, 1+length ($SRC_ROOT) );`
855	`if (TestSymlink( $niceBase,$_))`	855	`if (TestSymlink( $niceBase,$_))`
856	`{`	856	`{`
857	`# Don't copy broken Symlinks`	857	`# Don't copy broken Symlinks`
858	`# Perhaps this should be an error - but is will break escrow builds`	858	`# Perhaps this should be an error - but is will break escrow builds`
859	`#`	859	`#`