ports/64984: porteasy 2.7.12 doesn't work on FreeBSD-4 with system core's perl

[Jurij Ivliev]

>Number:         64984
>Category:       ports
>Synopsis:       porteasy 2.7.12 doesn't work on FreeBSD-4 with system core's perl
>Confidential:   no
>Severity:       non-critical
>Priority:       medium
>Responsible:    freebsd-ports-bugs
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          sw-bug
>Submitter-Id:   current-users
>Arrival-Date:   Wed Mar 31 01:30:22 PST 2004
>Closed-Date:
>Last-Modified:
>Originator:     Jurij Ivliev
>Release:        FreeBSD 4.9-RELEASE-p1 i386
>Organization:
EsterDev, Ltd
>Environment:
System: FreeBSD smaug.esterdev.com 4.9-RELEASE-p1 FreeBSD 4.9-RELEASE-p1 #0: Thu Jan  1 22:45:35 GMT 2004 root at smaug.esterdev.com:/usr/obj/usr/src/sys/SMAUG-VM i386
$ perl -v
This is perl, version 5.005_03 built for i386-freebsd
>Description:
FreeBSD-4 system core's perl (version 5.005_03) cannot compile porteasy 
because of it doesn't have mkdir function with one argument.
>How-To-Repeat:
$ porteasy
Not enough arguments for mkdir at /usr/local/bin/porteasy line 341, near ""$portsdir/packages")
            "
Execution of /usr/local/bin/porteasy aborted due to compilation errors.
>Fix:
--- /usr/local/bin/porteasy.orig        Wed Mar 31 08:33:17 2004
+++ /usr/local/bin/porteasy     Wed Mar 31 08:34:24 2004
@@ -337,7 +337,7 @@
            or bsd::errx(1, "error updating the index file");
     }
     if ($packages && ! -d "$portsdir/packages") {
-       mkdir("$portsdir/packages")
+       mkdir("$portsdir/packages",0777)
            or bsd::errx(1, "error creating the package directory");
     }
     cvs("update", "Mk", "Templates", "Tools")
>Release-Note:
>Audit-Trail:
>Unformatted: