Changeset 82292

Timestamp:

08/12/11 02:05:23 (4 years ago)

Author:

afb@…

Message:

add a vercmp alias, for easier future upgrading

Location:

branches/release_2_0/base/src

Files:

• pextlib1.0/Pextlib.c (modified) (1 diff)
• port/port.tcl (modified) (1 diff)

branches/release_2_0/base/src/pextlib1.0/Pextlib.c

@@ -486 +486 @@
         Tcl_CreateObjCommand(interp, "filemap", FilemapCmd, NULL, NULL);
         Tcl_CreateObjCommand(interp, "rpm-vercomp", RPMVercompCmd, NULL, NULL);
+        Tcl_CreateObjCommand(interp, "vercmp", RPMVercompCmd, NULL, NULL);
         Tcl_CreateObjCommand(interp, "rmd160", RMD160Cmd, NULL, NULL);
         Tcl_CreateObjCommand(interp, "sha256", SHA256Cmd, NULL, NULL);

branches/release_2_0/base/src/port/port.tcl

@@ -481 +481 @@
     set avr_ [split $a_(version) "_"]
     set bvr_ [split $b_(version) "_"]
-    set vercmp [rpm-vercomp [lindex $avr_ 0] [lindex $bvr_ 0]]
-    if {$vercmp != 0} {
-        return $vercmp
+    set versioncmp [rpm-vercomp [lindex $avr_ 0] [lindex $bvr_ 0]]
+    if {$versioncmp != 0} {
+        return $versioncmp
     }
     set ar_ [lindex $avr_ 1]