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";