Changeset 89428 for trunk/base


Ignore:
Timestamp:
Jan 28, 2012, 7:42:22 PM (9 years ago)
Author:
raimue@…
Message:

port1.0/portlint.tcl:
Check for incorrect svn properties

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portlint.tcl

    r86920 r89428  
    607607    ui_debug "Revision: $revision"
    608608    ui_debug "Archs: $portarch"
     609
     610    ###################################################################
     611
     612    set svn_cmd ""
     613    catch {set svn_cmd [findBinary svn]}
     614    if {$svn_cmd != "" && ([file exists $portpath/.svn] || ![catch {exec $svn_cmd info $portpath > /dev/null 2>@1}])} {
     615        ui_debug "Checking svn properties"
     616        if [catch {exec $svn_cmd propget svn:keywords $portfile 2>@1} output] {
     617            ui_warn "Unable to check for svn:keywords property: $output"
     618        } else {
     619            ui_debug "Property svn:keywords is \"$output\", should be \"Id\""
     620            if {$output != "Id"} {
     621                ui_error "Missing subversion property on Portfile, please execute: svn ps svn:keywords Id Portfile"
     622                incr errors
     623            }
     624        }
     625        if [catch {exec $svn_cmd propget svn:eol-style $portfile 2>@1} output] {
     626            ui_warn "Unable to check for svn:eol-style property: $output"
     627        } else {
     628            ui_debug "Property svn:eol-style is \"$output\", should be \"native\""
     629            if {$output != "native"} {
     630                ui_error "Missing subversion property on Portfile, please execute: svn ps svn:eol-tyle native Portfile"
     631                incr errors
     632            }
     633        }
     634    }
     635
    609636    ###################################################################
    610637
Note: See TracChangeset for help on using the changeset viewer.