find the configuration in a cross-platform way

1 files changed, 4 insertions, 1 deletions

diff --git a/bin/reply b/bin/reply
index ddd03e2..569816e 100644
--- a/bin/reply
+++ b/bin/reply
@@ -3,9 +3,12 @@ use strict;
 use warnings;
 # PODNAME: reply
 
+use File::HomeDir;
+use File::Spec;
+
 use Reply;
 
-my $cfg = "$ENV{HOME}/.replyrc";
+my $cfg = File::Spec->catfile(File::HomeDir->my_home, ".replyrc");
 
 my %args = (config => $cfg);
 if (!-e $cfg) {