develooper Front page | perl.perl5.porters | Postings from October 2003

[perl #24079] Missing crypt() function on QNX 6.2.1

From:
Alf Bjorn Hustoft
Date:
October 1, 2003 20:09
Subject:
[perl #24079] Missing crypt() function on QNX 6.2.1
Message ID:
rt-24079-65505.16.5039934867941@rt.perl.org
# New Ticket Created by  Alf Bjorn Hustoft 
# Please include the string:  [perl #24079]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=24079 >


Hi,
The perl 5.6.1 binaries for QNX 6.2 do not have the crypt() function enabled. 
I downloaded source for 5.8.1 and ran the Configure script. It did not find 
the crypt() function. The script looks for functions in libc.so, but the 
crypt() function on QNX 6.2.1 is in libc.a. I made brute force test by using 
the following change in the Configure script. That is, I turned on the test 
which compiles a try.c program. This created a perl with the crypt() 
function.

Alf Bjorn Hustoft
ARX Innovation AS
http://www.arxi.no

--- Configure   Thu Sep 18 11:21:48 2003
+++ Configure.abh       Wed Oct  1 10:44:18 2003
@@ -7369,9 +7369,12 @@
 yes)
        tval=false;
        if $test "$runnm" = true; then
+echo $contains;
+echo  $tlook;
+echo  $tf ;
                if $contains $tlook $tf >/dev/null 2>&1; then
                        tval=true;
-               elif $test "$mistrustnm" = compile -o "$mistrustnm" = run; 
then
+                       else
                        echo "void *(*(p()))$tdc { extern void *$1$tdc; return 
&$1; } int main() { if(p()) return(0); else return(1); }"> try.c;
                        $cc -o try $optimize $ccflags $ldflags try.c 
>/dev/null 2>&1 $libs && tval=true;
                        $test "$mistrustnm" = run -a -x try && { $run 
./try$_exe >/dev/null 2>&1 || tval=false; };
#





nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About