Solution on Notes

DBD::mysql fails to install on Mac OS X

melo@simplicidade.org (Pedro Melo) — Mon, 01 Aug 2016 18:59:05 +0100

Some versions of DBD::mysql fail to install on Mac OS X with this error:

DBI Connection failed: install_driver(mysql) failed: Can't load '.../lib/perl5/darwin-2level/auto/DBD/mysql/mysql.bundle' for module DBD::mysql: dlopen(.../lib/perl5/darwin-2level/auto/DBD/mysql/mysql.bundle, 1): Library not loaded: libmysqlclient.18.dylib
#   Referenced from: .../lib/perl5/darwin-2level/auto/DBD/mysql/mysql.bundle
#   Reason: image not found at .../lib/5.16.3/darwin-2level/DynaLoader.pm line 194.

The issue is that for some reason the DBD::mysql mysql.bundle references a relative path to libmysqlclient.18.dylib.

To check you can do:

otool -L .../lib/perl5/darwin-2level/auto/DBD/mysql/mysql.bundle

Check that libmysqlclient.18.dylib file that the bundle references is a relative path or does not exist.

To work around the issue, I use this:

chmod 755 mysql.bundle
install_name_tool -change libmysqlclient.18.dylib \
    /usr/local/mysql/lib/libmysqlclient.18.dylib  \
    mysql.bundle
chmod 555 mysql.bundle

Replace /usr/local/mysql/lib/libmysqlclient.18.dylib with the full path of libmysqlclient.18.dylib on your system.

LibMagic regexp error 17

melo@simplicidade.org (Pedro Melo) — Mon, 01 Aug 2016 18:41:32 +0100

Got the following error using File::LibMagic (uses libmagic):

error calling magic_file: line 163: regex error 17, (illegal byte sequence)

This is usually caused by two separate issues:

first, you are probably using an old version of libmagic. Version 5.17 had problems for me, but a brew upgrade libmagic updated to 5.25;
second, libmagic is very sensible to ENV’s LC_CTYPE and LC_LANG. Set both temporarily to C.

One or both of this two actions will need to be used to solve the issue.

More information on this ticket: https://trac.macports.org/ticket/38771.

I wrote a small utility function that takes care of all the details of figuring out the mime_type of a file:

sub mime_type {
  my ($path, $default) = @_;

  return $default unless eval { require File::LibMagic };
  $path = $path->stringify if blessed($path); ## Path::Tiny support

  ## We need the ENV's to avoid https://trac.macports.org/ticket/38771
  local $ENV{LC_CTYPE} = 'C';
  local $ENV{LANG}     = 'C';
  state $fm = File::LibMagic->new;
  my $info = $fm->info_from_filename($path);

  return $info->{mime_type} if $info and $info->{mime_type};
  return $default;
}