Merge pull request #9 from aggrolite/Reddit-Client/find-files-unix-ho…

…me-dir expand unix tilde symbol to find session file in home directory
sysread · Mar 20, 2015 · 369017d · 369017d
2 parents e837424 + 735c6f2
commit 369017d
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/Makefile.PL b/Makefile.PL
@@ -19,6 +19,7 @@ WriteMakefile(
         'List::Util'          => 0,
         'LWP::UserAgent'      => 0,
         'URI::Encode'         => 0,
+        'File::Path::Expand'  => 1.02,
     },
 
     BUILD_REQUIRES => {

diff --git a/lib/Reddit/Client.pm b/lib/Reddit/Client.pm
@@ -12,6 +12,7 @@ use JSON           qw//;
 use File::Spec     qw//;
 use Digest::MD5    qw/md5_hex/;
 use POSIX          qw/strftime/;
+use File::Path::Expand qw//;
 
 require Reddit::Client::Account;
 require Reddit::Client::Comment;
@@ -256,7 +257,9 @@ sub save_session {
 
     # Prepare session and file path
     my $session   = { modhash => $self->{modhash}, cookie => $self->{cookie} };
-    my $file_path = defined $file ? $file : $self->{session_file};
+    my $file_path = File::Path::Expand::expand_filename(
+        defined $file ? $file : $self->{session_file}
+    );
 
     DEBUG('Save session to %s', $file_path);
 
@@ -274,7 +277,9 @@ sub save_session {
 sub load_session {
     my ($self, $file) = @_;
     $self->{session_file} || $file || croak 'Expected $file';
-    my $file_path = defined $file ? $file : $self->{session_file};
+    my $file_path = File::Path::Expand::expand_filename(
+        defined $file ? $file : $self->{session_file}
+    );
 
     DEBUG('Load session from %s', $file_path);