--- CV/CV.xs	2005/12/28 20:56:20	1.30
+++ CV/CV.xs	2006/02/15 08:08:37	1.31
@@ -5,6 +5,8 @@
 #include <string.h>
 #include <setjmp.h>
 
+#include <magic.h>
+
 #include <jpeglib.h>
 #include <glib.h>
 #include <gtk/gtk.h>
@@ -145,6 +147,27 @@
         OUTPUT:
         RETVAL
 
+const char *
+magic (const char *path)
+	CODE:
+{
+	static magic_t cookie;
+
+        if (!cookie)
+          {
+            cookie = magic_open (MAGIC_MIME);
+
+            if (cookie)
+              magic_load (cookie, 0);
+            else
+              XSRETURN_UNDEF;
+          }
+
+        RETVAL = magic_file (cookie, path);
+}
+	OUTPUT:
+        RETVAL
+
 # missing in Gtk2 perl module
 
 gboolean