[111268] trunk/dports/_resources/port1.0/group/perl5-1.0.tcl

ryandesign at macports.org ryandesign at macports.org
Tue Sep 17 16:47:24 PDT 2013


Revision: 111268
          https://trac.macports.org/changeset/111268
Author:   ryandesign at macports.org
Date:     2013-09-17 16:47:24 -0700 (Tue, 17 Sep 2013)
Log Message:
-----------
perl5-1.0.tcl: use eq and ne for comparing strings instead of == and != respectively

Modified Paths:
--------------
    trunk/dports/_resources/port1.0/group/perl5-1.0.tcl

Modified: trunk/dports/_resources/port1.0/group/perl5-1.0.tcl
===================================================================
--- trunk/dports/_resources/port1.0/group/perl5-1.0.tcl	2013-09-17 23:45:37 UTC (rev 111267)
+++ trunk/dports/_resources/port1.0/group/perl5-1.0.tcl	2013-09-17 23:47:24 UTC (rev 111268)
@@ -128,7 +128,7 @@
             }
         }
 
-        if {$subport == $name} {
+        if {$subport eq $name} {
             perl5.major
             distfiles
             supported_archs noarch
@@ -144,7 +144,7 @@
     } else {
         depends_lib port:perl${perl5.default_branch}
     }
-    if {![string match p5-* $name] || $subport != $name} {
+    if {![string match p5-* $name] || $subport ne $name} {
         configure.cmd       ${perl5.bin}
         configure.env       PERL_AUTOINSTALL=--skipdeps
         configure.pre_args  Makefile.PL
@@ -187,7 +187,7 @@
 proc perl5.use_module_build {} {
     global perl5.bin destroot perl5.major
 
-    if {${perl5.major} == ""} {
+    if {${perl5.major} eq ""} {
         return
     }
 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20130917/de5337a4/attachment.html>


More information about the macports-changes mailing list