Subversion Repositories DevTools

Rev

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

Rev 5816 Rev 5827
Line 5820... Line 5820...
5820 
        #   Remove leading ./
 5820 
        #   Remove leading ./
5821 
        #   Check for leading ../
 5821 
        #   Check for leading ../
5822 
        #
5822 
        #
5823 
        #   Remove any stupid path manipulation elements
 5823 
        #   Remove any stupid path manipulation elements
5824 
        #
5824 
        #
5825 
        $udir =~ s~(^[./]*/)~~;
 5825 
        if ($udir =~ s~^([./]*/)~~)
- 
 
 5826 
        {
5826 
        Warning("Packaging directive with --Dir option contains path manipulation elements (removed)", "Option: $_") if $1;
 5827 
            Warning("Packaging directive with --Dir option contains path manipulation elements (removed)", "Option: $_");
- 
 
 5828 
        }
5827 
 
 5829 
 
5828 
        if ($flags & $T_PKG) {
 5830 
        if ($flags & $T_PKG) {
5829 
            $dir = __PkgDir( $udir );
 5831 
            $dir = __PkgDir( $udir );
5830 
        } else {
 5832 
        } else {
5831 
            $dir = "\$(LOCALDIR)/$udir";
 5833 
            $dir = "\$(LOCALDIR)/$udir";