1
1

Merge branch '3101_gplib_fixes'

* 3101_gplib_fixes:
  Ticket #3101: F3 doesn't work on .so files in FreeBSD 9.x
Этот коммит содержится в:
Slava Zanko 2013-11-22 13:16:04 +03:00
родитель efa06663e2 0bc183c842
Коммит edf9a499d3
2 изменённых файлов: 3 добавлений и 3 удалений

Просмотреть файл

@ -22,8 +22,8 @@ do_view_action() {
file "${MC_EXT_FILENAME}" && nm -C "${MC_EXT_FILENAME}"
;;
lib)
gplib -t "${MC_EXT_FILENAME}" || >&2 | \
@PERL@ -e '@a=split /[\s\t]+/, <>; printf ("%-30s | %10d | %s.%s.%02d | %s\n", $a[0], ($a[1]*1),$a[7], lc($a[4]), $a[5], $a[6]);'
gplib -t "${MC_EXT_FILENAME}" | \
@PERL@ -e 'while (<>) { @a=split /[\s\t]+/, $_; printf ("%-30s | %10d | %s.%s.%02d | %s\n", $a[0], ($a[1]*1),$a[7], lc($a[4]), $a[5], $a[6]);}'
;;
so)
file "${MC_EXT_FILENAME}" && nm -C -D "${MC_EXT_FILENAME}"

Просмотреть файл

@ -73,7 +73,7 @@ sub mc_ulib_fs_copyout
my($module, $fname) = @_;
my $tmpdir = $ENV{'TMPDIR'};
$tmpdir = '/tmp' if ($tmpdir eq '');
$tmpdir = '/tmp' if (! defined $tmpdir or $tmpdir eq '');
open(PIPE, "$gplib -tq $archive |") || die("Error in: $gplib -tq");