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
        }