Ticket #30638: perl5-subports.diff

_resources/port1.0/group/perl5-1.0.tcl

@@ -34 +34 @@
 # OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 #
 
-# Set some variables.
-set perl5.bin ${prefix}/bin/perl
+# portfile configuration options
+# perl5.branches: the major perl version supported by this module. A
+#   subport will be created for each. e.g. p5.12-foo, p5.10-foo, ...
+# perl5.default_branch: the branch used when you request p5-foo
+options perl5.default_branch perl5.branches
+default perl5.default_branch 5.12
+default perl5.branches {"5.8 5.10 5.12 5.14"}
 
 proc perl5.extract_config {var {default ""}} {
     global perl5.bin
@@ -47 +52 @@
     return $val
 }
 
-options perl5.version perl5.arch perl5.lib perl5.archlib
+# Set some variables.
+options perl5.version perl5.major perl5.arch perl5.lib perl5.archlib perl5.bin
 default perl5.version {[perl5.extract_config version]}
 default perl5.arch {[perl5.extract_config archname ${os.platform}]}
+default perl5.bin {${prefix}/bin/perl${perl5.major}}
 
 # define installation libraries as vendor location
 default perl5.lib {${prefix}/lib/perl5/vendor_perl/${perl5.version}}
@@ -63 +70 @@
 
 # perl5 group setup procedure
 proc perl5.setup {module vers {cpandir ""}} {
-    global perl5.bin perl5.lib perl5.module perl5.cpandir
-    global prefix
+    global perl5.branches perl5.bin perl5.lib perl5.module perl5.cpandir
+    global prefix subport name 
 
     # define perl5.module
     set perl5.module ${module}
@@ -89 +96 @@
     distname            ${perl5.module}-${vers}
     dist_subdir         perl5
 
-    depends_lib     port:perl5
+    foreach v ${perl5.branches} {
+        subport p${v}-[string tolower ${perl5.module}] { depends_lib port:perl${v} }
+    }
 
-    configure.cmd       ${perl5.bin}
-    configure.env       PERL_AUTOINSTALL=--skipdeps
-    configure.pre_args  Makefile.PL
-    configure.args      INSTALLDIRS=vendor
-
-    test.run            yes
-
-    destroot.target     pure_install
-
-    post-destroot {
-        fs-traverse file ${destroot}${perl5.lib} {
-            if {[file tail ${file}] eq ".packlist"} {
-                ui_info "Fixing packlist ${file}"
-                reinplace "s|${destroot}||" ${file}
+    if {$subport == $name} {
+        distfiles
+        supported_archs noarch
+        replaced_by p[option perl5.default_branch]-[string tolower ${perl5.module}]
+        depends_lib port:p[option perl5.default_branch]-[string tolower ${perl5.module}]
+        use_configure no
+        build {}
+        destroot {
+            system "echo $name is a stub port > ${destroot}${prefix}/share/doc/${name}/README"
+        }
+    } else {
+        perl5.major [string range $subport 1 [expr [string first - $subport]-1]]
+        configure.cmd       ${perl5.bin}
+        configure.env       PERL_AUTOINSTALL=--skipdeps
+        configure.pre_args  Makefile.PL
+        configure.args      INSTALLDIRS=vendor
+    
+        test.run            yes
+    
+        destroot.target     pure_install
+    
+        post-destroot {
+            fs-traverse file ${destroot}${perl5.lib} {
+                if {[file tail ${file}] eq ".packlist"} {
+                    ui_info "Fixing packlist ${file}"
+                    reinplace "s|${destroot}||" ${file}
+                }
             }
         }
     }