Another "%p is multilevel" breakage trigger (thanks TheSin!)

fink · Nov 27, 2016 · f84600d · f84600d
1 parent 8d2b4fc
commit f84600d
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/perlmod/Fink/Validation.pm b/perlmod/Fink/Validation.pm
@@ -1327,11 +1327,15 @@ sub validate_info_component {
 			$looks_good = 0;
 		}
 
-		# Check for %i/.. (%p could be multilevel)
+		# Checks for relative pathnames that break if %p is multilevel
 		if ($value =~ /\%i\/\.\.([\s\/]|\Z)/) {
 			print "Warning: Field \"$field\"$splitoff_field appears to contain \%p/.. (did you mean \%d instead?). ($filename)\n";
 			$looks_good = 0;
 		}
+		if ($value =~ /\.\.\/DEBIAN([\s\/]|\Z)/) {
+			print "Warning: Field \"$field\"$splitoff_field appears to contain ../DEBIAN (did you mean \%d/DEBIAN instead?). ($filename)\n";
+			$looks_good = 0;
+		}
 
 		# warn for non-plain-text chars
 		# this doesn't work for unicode; is there a good way to accept unicode without just ignoring validation?