# New Ticket Created by James Keenan
# Please include the string: [perl #54374]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=54374 >
While running 'perl Configure.pl --test', I get the following warning
on each of the tests in t/steps/inter_libparrot-*.t:
t/steps/inter_libparrot-01.....................8/11 Use of
uninitialized value $_[0] in join or string at /usr/local/lib/
perl5/5.10.0/File/Spec/Unix.pm line 81.t/steps/
inter_libparrot-01.....................ok
There are 9 such test files all together. I do not get the warning
when I run them individually or collectively via 'prove -v t/steps/
inter_libparrot*.t'.
A recent change to config/inter/libparrot.pm may be the cause; see
attached.
Index: config/inter/libparrot.pm
===================================================================
--- config/inter/libparrot.pm (revision 25763)
+++ config/inter/libparrot.pm (revision 27445)
@@ -41,6 +41,18 @@
$parrot_is_shared = 0 unless $conf->data->get('has_dynamic_linking');
+ # Parrot can't necessarily handle a pre-existing installed shared
+ # libparrot.so. At this point, we don't know the actual name
+ # of the shared parrot library. However, 'libparrot.so' will catch
+ # at least some of the problems.
+ # RT#52288: the check for old_versions should be improved
+ my $old_version
+ = File::Spec->catfile($conf->data->get('libdir'), 'libparrot.so');
+ if (-e $old_version) {
+ warn("\nWarning: Building a shared parrot library may conflict " .
+ "with your previously-installed $old_version\n");
+ }
+
if (
$conf->options->get('ask')
&&
I will try to look into this.
kid51
