From d9d1071585f1c0cab2c9bab4bcc1a007ce616e22 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?S=C3=A9bastien=20Marie?= <semarie@online.fr>
Date: Sun, 17 Jan 2021 10:09:37 +0100
Subject: [PATCH] adds Cwd paths from packages in expected list

problem initially reported by zhuk@ some times ago

with it, sysclean takes care of packages like
icu4c-wwwdata where files are installed inside
/var/www/usr/local/share/icu.
---
 sysclean.pl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/sysclean.pl b/sysclean.pl
index 62970af..0caa0ec 100755
--- a/sysclean.pl
+++ b/sysclean.pl
@@ -464,6 +464,21 @@ sub walk_sysclean
 {
 }
 
+package OpenBSD::PackingElement::Cwd;
+
+sub walk_sysclean
+{
+    use File::Basename;
+
+    my ($item, $pkgname, $sc) = @_;
+    my $path = $item->name;
+
+    do {
+	$sc->{expected}{$path} = 1;
+	$path = dirname($path);
+    } while ($path ne "/");
+}
+
 package OpenBSD::PackingElement::FileObject;
 sub walk_sysclean
 {