[elpa] elpa-admin fae2e2e: * elpa-admin.el (elpaa--prune-old-tarballs): Fix computation of .sig name

[Stefan Monnier]

branch: elpa-admin
commit fae2e2e8bc192ac64f1ffaf5aef0032736707373
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * elpa-admin.el (elpaa--prune-old-tarballs): Fix computation of .sig name
---
 elpa-admin.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/elpa-admin.el b/elpa-admin.el
index 66614c8..5810924 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -444,15 +444,15 @@ Do it without leaving the current branch."
             (message "Deleting %s" (cdr oldtarball))
             (let* ((olddir (expand-file-name "old" destdir))
                    (filename (cdr oldtarball))
-                   (basename (file-name-sans-extension filename))
                    (sig (concat (if (member (file-name-extension filename)
                                             '("lz" "gz"))
-                                    (file-name-sans-extension basename)
-                                  basename)
+                                    (file-name-sans-extension filename)
+                                  filename)
                                 ".sig"))
                    (mvfun (lambda (f)
                             (let ((src (expand-file-name f destdir)))
-                              (when (file-exists-p src)
+                              (if (not (file-exists-p src))
+                                  (message "Not existing/moving: %S" src)
                                 (rename-file src
                                              (expand-file-name f olddir)))))))
               (make-directory olddir t)