Subversion Repositories DevTools

Rev

Rev 247 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 247 Rev 249
Line 740... Line 740...
740 
 
 740 
 
741 
            #
 741 
            #
742 
            #   Line-1:
 742 
            #   Line-1:
743 
            #   Path to package as seen from current view
 743 
            #   Path to package as seen from current view
744 
            #
 744 
            #
745 
            if ( $line eq 1 )
 745 
            if ( $line == 1 )
746 
            {
 746 
            {
747 
                s{\\}{/}g;
 747 
                s{\\}{/}g;
748 
                s{\s+\(.+\)$}{};
 748 
                s{\s+\(.+\)$}{};
749 
                $data{pname} = $_;
 749 
                $data{pname} = $_;
750 
                Verbose2 ("ctd: pname: $_");
 750 
                Verbose2 ("ctd: pname: $_");