--- /usr/games/bin/frozen-bubble	2005-04-03 01:15:53.000000000 -0600
+++ ./frozen-bubble	2005-04-03 05:13:17.000000000 -0500
@@ -233,6 +233,11 @@
 
 #- ----------- graphics related stuff --------------------------------------
 
+# Perhaps this should be exported by SDL::SFont
+sub SDL_TEXTWIDTH {
+	SDL::SFont::SDL_TEXTWIDTH(@_);
+}
+
 sub add_default_rect($) {
     my ($surface) = @_;
     $rects{$surface} = SDL::Rect->new(-width => $surface->width, -height => $surface->height);