using realbin over bin

This commit is contained in:
long.haired.steve 2009-11-10 15:20:50 +00:00
parent 84fb5ace8a
commit 09845662d5
2 changed files with 5 additions and 5 deletions

View File

@ -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.

4
butt
View File

@ -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;