From 09845662d55e50e3f3f9a528662f1f90b78d289e Mon Sep 17 00:00:00 2001
From: "long.haired.steve"
 <long.haired.steve@cac83df2-fa40-0410-8867-2b7918b5bb02>
Date: Tue, 10 Nov 2009 15:20:50 +0000
Subject: [PATCH] using realbin over bin

---
 Butts.pm | 6 +++---
 butt     | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/Butts.pm b/Butts.pm
index ee9c604..0ed88aa 100644
--- a/Butts.pm
+++ b/Butts.pm
@@ -6,7 +6,7 @@ use warnings;
 use Math::Random;
 use TeX::Hyphen;
 use Data::Dumper;
-use FindBin qw($Bin);
+use FindBin qw($RealBin);
 use Carp;
 
 use fields qw/replace_freq
@@ -26,8 +26,8 @@ sub new {
     }
 
 
-    my %args = (hyphen_file    => "$Bin/hyphen.tex",
-                stopwords_file => "$Bin/stopwords",
+    my %args = (hyphen_file    => "$RealBin/hyphen.tex",
+                stopwords_file => "$RealBin/stopwords",
                 debug          => 0,
                 meme           => 'butt',
                 replace_freq   => (1/11), # original value from tef.
diff --git a/butt b/butt
index 319f13e..13ecf70 100755
--- a/butt
+++ b/butt
@@ -3,8 +3,8 @@ use strict;
 use warnings;
 
 BEGIN {
-    use FindBin qw($Bin);
-    push @INC, $Bin;
+    use FindBin qw($RealBin);
+    push @INC, $RealBin;
 }
 use Butts;