#!/usr/bin/perl -w

use strict;

sub test_pic_a {
  my ($filename) = @_;

  open (IN, "nm $filename 2>/dev/null |") or die;
  while (<IN>) {
    if (/U _GLOBAL_OFFSET_TABLE_$/) {
      print "E: pic-code-in-static-library $filename\n";
      last;
    }
  }
}

foreach my $i (glob("/usr/lib/*.a")) {
  test_pic_a ($i)
}