Subversion Repositories DevTools

Rev

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

Rev 5411 Rev 5568
Line 5805... Line 5805...
5805 
        my $udir = $1;
 5805 
        my $udir = $1;
5806 
 
 5806 
 
5807 
        #
 5807 
        #
5808 
        #   Remove leading ./
 5808 
        #   Remove leading ./
5809 
        #   Check for leading ../
 5809 
        #   Check for leading ../
- 
 
 5810 
        #
- 
 
 5811 
        #   Remove any stupid path manipulation elements
- 
 
 5812 
        #
5810 
        while ( $udir =~ s{^\./}{} ){};
 5813 
        $udir =~ s~(^[./]*/)~~;
- 
 
 5814 
        Warning("Packaging directive with --Dir option contains path manipulation elements (removed)", "Option: $_") if $1;
5811 
 
 5815 
 
5812 
        if ( $udir =~ m~^\.\./~ )
 - 
 
5813 
        {
 - 
 
5814 
            Warning("Packaging directive with --Dir option contains relative path (removed)", "Option: $_");
 - 
 
5815 
            while ( $udir =~ s{^\.\./}{} ){};
 - 
 
5816 
        }
 - 
 
5817 
        if ($flags & $T_PKG) {
 5816 
        if ($flags & $T_PKG) {
5818 
            $dir = __PkgDir( $udir );
 5817 
            $dir = __PkgDir( $udir );
5819 
        } else {
 5818 
        } else {
5820 
            $dir = "\$(LOCALDIR)/$udir";
 5819 
            $dir = "\$(LOCALDIR)/$udir";
5821 
        }
 5820 
        }