Package: tar / 1.30+dfsg-5

pristine-tar.diff Patch series | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
--- a/src/common.h
+++ b/src/common.h
@@ -980,4 +980,8 @@ void group_map_read (char const *file);
 int group_map_translate (gid_t gid, gid_t *new_gid, char const **new_name);
 
 
+GLOBAL int debian_longlink_hack;
+GLOBAL int debian_broken_numeric_owner;
+GLOBAL int pristine_tar_compat;
+
 _GL_INLINE_HEADER_END
--- a/src/create.c
+++ b/src/create.c
@@ -28,6 +28,10 @@
 #include "common.h"
 #include <hash.h>
 
+extern int debian_longlink_hack;
+extern int debian_broken_numeric_owner;
+extern int pristine_tar_compat;
+
 /* Error number to use when an impostor is discovered.
    Pretend the impostor isn't there.  */
 enum { IMPOSTOR_ERRNO = ENOENT };
@@ -535,6 +539,11 @@ write_short_name (struct tar_stat_info *
   return header;
 }
 
+#define FILL(field,byte) do {            \
+  memset(field, byte, sizeof(field)-1);  \
+  (field)[sizeof(field)-1] = 0;          \
+} while (0)
+
 /* Write a GNUTYPE_LONGLINK or GNUTYPE_LONGNAME block.  */
 static void
 write_gnu_long_link (struct tar_stat_info *st, const char *p, char type)
@@ -544,7 +553,11 @@ write_gnu_long_link (struct tar_stat_inf
   union block *header;
 
   header = start_private_header ("././@LongLink", size, 0);
-  if (! numeric_owner_option)
+  if (pristine_tar_compat) {
+         FILL (header->header.mtime, '0');
+         FILL (header->header.mode, '0');
+  }
+  if ((pristine_tar_compat && debian_broken_numeric_owner) || ! numeric_owner_option)
     {
       static char *uname, *gname;
       if (!uname)
@@ -729,7 +742,7 @@ write_header_name (struct tar_stat_info
       return write_short_name (st);
     }
   else if (NAME_FIELD_SIZE - (archive_format == OLDGNU_FORMAT)
-	   < strlen (st->file_name))
+	   < strlen (st->file_name) + debian_longlink_hack)
     return write_long_name (st);
   else
     return write_short_name (st);
@@ -1502,7 +1515,7 @@ dump_hard_link (struct tar_stat_info *st
 	  block_ordinal = current_block_ordinal ();
 	  assign_string (&st->link_name, link_name);
 	  if (NAME_FIELD_SIZE - (archive_format == OLDGNU_FORMAT)
-	      < strlen (link_name))
+	      < strlen (link_name) + debian_longlink_hack)
 	    write_long_link (st);
 
 	  st->stat.st_size = 0;
--- a/src/tar.c
+++ b/src/tar.c
@@ -1204,6 +1204,36 @@ expand_pax_option (struct tar_args *targ
   return res;
 }
 
+/* Debian specific environment variable used by pristine-tar to enable use of
+ * longlinks for filenames exactly 100 bytes long. */
+void debian_longlink_hack_init (void) {
+ char *s=getenv ("TAR_LONGLINK_100");
+ if (s && strcmp(s, "1") == 0)
+	 debian_longlink_hack=1;
+ else
+	 debian_longlink_hack=0;
+}
+
+/* Debian specific environment variable used by pristine-tar to enable use of
+ * user and group names even when --numeric-owner is passed. */
+void debian_broken_numeric_owner_init (void) {
+ char *s=getenv ("TAR_BROKEN_NUMERIC_OWNER");
+ if (s && strcmp(s, "1") == 0)
+	 debian_broken_numeric_owner=1;
+ else
+	 debian_broken_numeric_owner=0;
+}
+
+/* pristine-tar sets this environment variable to force fields in longlinks
+ * to be zeroed as was the case in tar 1.26. */
+void pristine_tar_compat_init (void) {
+ char *s=getenv ("PRISTINE_TAR_COMPAT");
+ if (s && strcmp(s, "1") == 0)
+	 pristine_tar_compat=1;
+ else
+	 pristine_tar_compat=0;
+}
+
 
 static uintmax_t
 parse_owner_group (char *arg, uintmax_t field_max, char const **name_option)
@@ -2677,6 +2707,10 @@ main (int argc, char **argv)
 
   set_quoting_style (0, DEFAULT_QUOTING_STYLE);
 
+  debian_longlink_hack_init ();
+  debian_broken_numeric_owner_init ();
+  pristine_tar_compat_init ();
+
   /* Make sure we have first three descriptors available */
   stdopen ();