[xiph-cvs] r6459 - trunk/mgm

[giles at xiph.org]

Author: giles
Date: 2004-03-26 16:19:05 -0500 (Fri, 26 Mar 2004)
New Revision: 6459

Modified:
   trunk/mgm/mgm
Log:
Force the 'osname' to lowercase before using it as a module name. It 
appears it may have returned 'Linux' instead of 'linux' at some point; 
if so this change will protect those systems.

<p>Modified: trunk/mgm/mgm
===================================================================
--- trunk/mgm/mgm	2004-03-26 21:02:11 UTC (rev 6458)
+++ trunk/mgm/mgm	2004-03-26 21:19:05 UTC (rev 6459)
@@ -5,7 +5,7 @@
 use IPC::Open2;
 use Config;
 use strict;
-use vars qw($basedir $moddir $libdir $fontfile $toplevel
+use vars qw($basedir $moddir $libdir $modname $fontfile $toplevel
             $orient $stack $background $foreground);
 
 # current install strategy: plop ourselves somewhere line
@@ -122,7 +122,10 @@
 my($minx,$miny,$reqx,$reqy,$ladj,$wadj);
 $renderflag=0;
 
-&LoadModules($moddir,$Config{'osname'});   # platform specificmodule references
+# platform specific module references
+my $modname = $Config{'osname'};
+$modname =~ tr/A-Z/a-z/;
+&LoadModules($moddir,$modname);
 
 &reinstance();
 

--- >8 ----
List archives:  http://www.xiph.org/archives/
Ogg project homepage: http://www.xiph.org/ogg/
To unsubscribe from this list, send a message to 'cvs-request at xiph.org'
containing only the word 'unsubscribe' in the body.  No subject is needed.
Unsubscribe messages sent to the list will be ignored/filtered.