[Angstrom-devel] Build - openssl uses deprecated Perl File::Find

[John L. Poole]

Following the instructions at
http://www.angstrom-distribution.org/building-angstrom
I proceeded with the 2nd step:
MACHINE=beagleboard ./oebb.sh bitbake virtual/kernel
where the configuration failed during the openssl phase.

Here's the error message:

Log data follows:

| ERROR: Function failed: do_configure (see 
/usr/local/src/beagle/angstrom/setup-scripts/build/tmp-angstrom_v2012_05-eglibc/work/x86_64-linux/openssl-native-1.0.0i-r0.2/temp/log.do_configure.4575 
for further information)
| Can't locate find.pl in @INC (@INC contains: ...

The full session and error message are located at:

http://pastebin.com/RqGpTbdQ

Specifically, something is using the old way (using "require") of using 
Perl's File::Find module.  Here's
the file:

hermes util # cat perlpath.pl
#!/usr/local/bin/perl
#
# modify the '#!/usr/local/bin/perl'
# line in all scripts that rely on perl.
#

require "find.pl";

$#ARGV == 0 || print STDERR "usage: perlpath newpath  (eg /usr/bin)\n";
&find(".");

sub wanted
        {
        return unless /\.pl$/ || /^[Cc]onfigur/;

        open(IN,"<$_") || die "unable to open $dir/$_:$!\n";
        @a=<IN>;
        close(IN);

        if (-d $ARGV[0]) {
                $a[0]="#!$ARGV[0]/perl\n";
        }
        else {
                $a[0]="#!$ARGV[0]\n";
        }

        # Playing it safe...
        $new="$_.new";
        open(OUT,">$new") || die "unable to open $dir/$new:$!\n";
        print OUT @a;
        close(OUT);

        rename($new,$_) || die "unable to rename $dir/$new:$!\n";
        chmod(0755,$_) || die "unable to chmod $dir/$new:$!\n";
        }
hermes util #


what I did to move forward:

replaced: require "find.pl";
with: use File::Find;
replaced: &find(".");
with: &find(\&wanted, ".");

The use of "require find.pl" is a very old construct which I have not 
seen for years. I am
the process of building now (task 503 of 911) and hope that
this deprecated use does not manifest itself elsewhere.  I am new to 
Angstrom and
therefore do not know where this construct of File::Find is coming from in
the above temporary file.

I did find this which bears directly on the issue: 
http://patches.openembedded.org/patch/29989/

I hope this helps.


John

<<attachment: jlpoole56.vcf>>_______________________________________________
Angstrom-distro-devel mailing list
Angstrom-distro-devel@linuxtogo.org
http://lists.linuxtogo.org/cgi-bin/mailman/listinfo/angstrom-distro-devel