Bail out if there seem to be no text symbols.
authorJarkko Hietaniemi <jhi@iki.fi>
Mon, 6 Oct 2014 17:55:38 +0000 (19:55 +0200)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 6 Oct 2014 20:45:32 +0000 (22:45 +0200)
Found by Ă†var in an IBM pSeries POWER7 Fedora Linux box.
All the text symbols (code) seemed to be 'D' (data).

There might be something further to fix regarding the use of 'nm'
(or maybe 'ar'?) in this particular box, but this change makes
the test more robust against surprising nm results.

t/porting/libperl.t

index 6b441e5..b052239 100644 (file)
@@ -303,9 +303,13 @@ while (<$nm_fh>) {
 
 # use Data::Dumper; print Dumper(\%symbols);
 
-if (keys %symbols == 0) {
+# Something went awfully wrong.  Wrong nm?  Wrong options?
+unless (keys %symbols) {
     skip_all "no symbols\n";
 }
+unless (exists $symbols{text}) {
+    skip_all "no text symbols\n";
+}
 
 # These should always be true for everyone.