we now use the GITHUB_TOKEN env var properly

stevieb9 · Feb 12, 2018 · 5102d48 · 5102d48
1 parent 11e8513
commit 5102d48
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/Changes b/Changes
@@ -5,6 +5,7 @@ Revision history for Github-Backup
         - added new "FUTURE DIRECTION" POD heading
         - -h flag is taken as priority in github_backup, and no longer prints
           erroneous warnings for missing args
+        - we now properly respect GITHUB_TOKEN env var
 
 1.01    2018-02-11
         - added repos() and issues()

diff --git a/lib/Github/Backup.pm b/lib/Github/Backup.pm
@@ -56,6 +56,10 @@ has stg => (
 sub BUILD {
     my ($self) = @_;
 
+    if (! $self->token){
+        $self->token($ENV{GITHUB_TOKEN}) if $ENV{GITHUB_TOKEN};
+    }
+
     for ($self->api_user, $self->token, $self->dir){
         if (! $_){
             croak "When instantiating an object, the 'api_user', 'token' and " .
@@ -156,12 +160,12 @@ sub DESTROY {
 
     if ($self->dir) {
         if (-d $self->dir) {
-            rmtree $self->dir or die "can't remove the old backup directory...";
+            rmtree $self->dir or die "can't remove the old backup directory: $!";
         }
 
         if ($self->stg) {
             move $self->stg,
-                $self->dir or die "can't rename the staging directory...";
+                $self->dir or die "can't rename the staging directory: $!";
         }
 
         if (-d $self->dir && $self->_clean) {