librep r2985 - in trunk: . lisp/rep/io/file-handlers man

[chrisb svn gnome org]

Author: chrisb
Date: Wed Feb 18 22:29:10 2009
New Revision: 2985
URL: http://svn.gnome.org/viewvc/librep?rev=2985&view=rev

Log:
BSD-Tar is not supported, give users a usefull warning [Mark Diekhans]


Modified:
   trunk/ChangeLog
   trunk/lisp/rep/io/file-handlers/tar.jl
   trunk/man/news.texi

Modified: trunk/lisp/rep/io/file-handlers/tar.jl
==============================================================================
--- trunk/lisp/rep/io/file-handlers/tar.jl	(original)
+++ trunk/lisp/rep/io/file-handlers/tar.jl	Wed Feb 18 22:29:10 2009
@@ -204,7 +204,7 @@
       (setq tarfh-pending-output (substring string point)))))
 
 (defun tarfh-parse-list (string point)
-  (when (string-looking-at tarfh-list-regexp string point)
+  (if (string-looking-at tarfh-list-regexp string point)
     (let
 	((mode-string (substring string (match-start 1) (match-end 1)))
 	 (user (substring string (match-start 2) (match-end 2)))
@@ -220,7 +220,8 @@
       (setq file-name (expand-file-name name ""))
       (vector name file-name size modtime
 	      (cdr (assq (aref mode-string 0) tarfh-list-type-alist))
-	      nil mode-string user group symlink))))
+	      nil mode-string user group symlink))
+	      (error "can't parse tar file listing line (GNU or Solaris tar required): %s" (substring string point))))
 
 (defun tarfh-file-get-modtime (file-struct)
   (when (stringp (aref file-struct tarfh-file-modtime))
@@ -398,7 +399,7 @@
 	   (tarfh-handler (car split) (cdr split) op args)))
 	(t
 	 (error "Unknown file op in TAR handler: %s %S" op args))))
-	
+
 (defun tarfh-handler (tarfile rel-file op args)
   (cond
    ((eq op 'canonical-file-name)

Modified: trunk/man/news.texi
==============================================================================
Binary files. No diff available.