mgm (1.1.svn.20080520-1) known_debian_basedir

Index: mgm-1.1.cvs.20080520/mgm
===================================================================
--- mgm-1.1.cvs.20080520.orig/mgm	2008-07-08 23:03:20.000000000 +0300
+++ mgm-1.1.cvs.20080520/mgm	2008-07-08 23:03:32.000000000 +0300
@@ -13,12 +13,8 @@
 # is a symlink to the absolute path of the actual Perl script.  That
 # way, $0 will be a full path.
 
-$basedir=$0;
-# find the real mgm, not a symlink
-while(defined(my$test=readlink($basedir))){$basedir=$test};
-# strip off the filename
-$basedir=~s/\/?([^\/]*)$//;
-$basedir="./"if($basedir eq "");
+# FOR DEBIAN: We know where the mgm files are.
+$basedir="/usr/share/mgm";
 
 # assume the other schtuff we need is in the standard places.