# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1701861222 -32400
# Node ID f389a311a8d4610fdaa146806d8a8f2168739015
# Parent  a3ec2a73dd33f0a63ad43bf5c5cb621cabc9362d
Rename function name

diff -r a3ec2a73dd33 -r f389a311a8d4 s4-funcs.sh
--- a/s4-funcs.sh	Wed Dec 06 17:29:00 2023 +0900
+++ b/s4-funcs.sh	Wed Dec 06 20:13:42 2023 +0900
@@ -4009,7 +4009,7 @@
 EOF
 }
 
-clean-orphaned() {
+clean_orphaned() {
   # This shoud be done by foreign_key rules, but some db lack them
   query<<-EOF
 	-- Find blogs that have no parent
@@ -4100,7 +4100,7 @@
 	query "delete from $tbl where rowid=$rowid;"
 	clearcachedir "$tbl/$rowid"
 	if [ x"$tbl" = x"grp" -o x"$tbl" = x"blog" ]; then
-	  clean-orphaned
+	  clean_orphaned
 	fi
 	return 4
       else
diff -r a3ec2a73dd33 -r f389a311a8d4 s4-migrate.sh
--- a/s4-migrate.sh	Wed Dec 06 17:29:00 2023 +0900
+++ b/s4-migrate.sh	Wed Dec 06 20:13:42 2023 +0900
@@ -221,7 +221,7 @@
 	echo "Done."
 	echo "Success!!"
 	query "END;"
-	clean-orphaned
+	clean_orphaned
 	echo "Done."
       else
 	echo Removal failed