CTAN sync 201912130300

2 files changed, 25 insertions, 0 deletions

diff --git a/support/pkgcheck/src/messages/errorsd.rs b/support/pkgcheck/src/messages/errorsd.rs
index bd726754c0..f839f5538b 100644
--- a/support/pkgcheck/src/messages/errorsd.rs
+++ b/support/pkgcheck/src/messages/errorsd.rs
@@ -443,3 +443,13 @@ directories but no files.
     )
 }
 
+pub fn e0035d() {
+    println!(
+        r#"
+E0035 -- Unwanted TDS archive detected in package directory tree
+
+A package directory should not contain a TDS zip archive.
+"#
+    )
+}
+
diff --git a/support/pkgcheck/src/messages/mod.rs b/support/pkgcheck/src/messages/mod.rs
index 0a77e14c1e..2edda3c536 100644
--- a/support/pkgcheck/src/messages/mod.rs
+++ b/support/pkgcheck/src/messages/mod.rs
@@ -437,6 +437,19 @@ macro_rules! e0034 {
     };
 }
 
+macro_rules! e0035 {
+    ($fmt:expr) => {
+        error_occured!();
+        print!(
+            "{}   Unwanted TDS archive `{}` detected in package directory tree\n",
+            msgid!("E0035"),
+            $fmt
+        );
+    };
+}
+
+
+
 macro_rules! w0001 {
     ($fmt:expr) => {
         print!(
@@ -604,6 +617,7 @@ pub fn explains(err: &str) {
         "E0031" => e0031d(),
         "E0033" => e0033d(),
         "E0034" => e0034d(),
+        "E0035" => e0035d(),
 
         //        "I0001" => i0001d!(),
         "I0001" => i0001d(),
@@ -668,6 +682,7 @@ pub fn explains_all() {
     explains("E0031");
     explains("E0033");
     explains("E0034");
+    explains("E0035");
 
     explains("I0001");
     explains("I0002");