Subversion Repositories DevTools

Rev

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

Rev 347 Rev 359
Line 192... Line 192...
192 
 
 192 
 
193 
        #
 193 
        #
194 
        #   Extract special fields
 194 
        #   Extract special fields
195 
        #   These are not dependent packages and are not mandatory
 195 
        #   These are not dependent packages and are not mandatory
196 
        #   These are of the form tag = name
 196 
        #   These are of the form tag = name
- 
 
 197 
        #       Note: Must allow for package-versions like: "SUNWj6rt 1.6.0,REV=2006.11.29.05.03"
- 
 
 198 
        #             Solution: tag must not conatin whitespace
197 
        #
 199 
        #
198 
        if ( m{(\S+)\s*=\s*(.+)} )
 200 
        if ( m{^\s*(\S+)\s*=\s*(.+)} )
199 
        {
 201 
        {
200 
            Error ("Unsupported named field")  unless ( exists $fields{$1} );
 202 
            Error ("Unsupported named field: $1")  unless ( exists $fields{$1} );
201 
            $fields{$1} = $2;
 203 
            $fields{$1} = $2;
202 
            Verbose ("Field: $1, \"$2\"");
 204 
            Verbose ("Field: $1, \"$2\"");
203 
            next;
 205 
            next;
204 
        }
 206 
        }
205 
 
 207