Use FindBin so we don't need the bin_root silliness

[p5sagit/Promulger.git] / lib / Promulger / List.pm

diff --git a/lib/Promulger/List.pm b/lib/Promulger/List.pm
index ad79fbf..025b87d 100644 (file)
--- a/lib/Promulger/List.pm
+++ b/lib/Promulger/List.pm
@@ -9,6 +9,7 @@ use Tie::File;
 use File::Slurp qw/read_file write_file/;
 use Data::Dumper;
 use Try::Tiny;
+use FindBin qw($Bin);
 $Data::Dumper::Purity = 1;
 
 use Promulger::Config;
@@ -84,7 +85,7 @@ sub setup {
       croak "${list_alias} already in $config->{aliases}";
     }
     push @aliases, 
-      qq(${list_alias}: "|$config->{bin_root}/pmg msg -c $config->{config_file}"\n);
+      qq(${list_alias}: "|$Bin msg -c $config->{config_file}"\n);
   }
 
   $self->store($path->stringify);