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: $_");