diff --git a/src/bin/scripts/droplang b/src/bin/scripts/droplang
index cd6563aeef333906c9fd6890b4a61de9ed5b4e6c..ece2c5c25d5d51ea93d095ab594d525bdf9d4663 100644
--- a/src/bin/scripts/droplang
+++ b/src/bin/scripts/droplang
@@ -8,7 +8,7 @@
 #
 #
 # IDENTIFICATION
-#    $Header: /cvsroot/pgsql/src/bin/scripts/Attic/droplang,v 1.6 2000/01/19 20:08:36 petere Exp $
+#    $Header: /cvsroot/pgsql/src/bin/scripts/Attic/droplang,v 1.7 2000/02/09 20:23:26 momjian Exp $
 #
 #-------------------------------------------------------------------------
 
@@ -159,9 +159,13 @@ case "$langname" in
 		lancomp="PL/Tcl"
 		handler="pltcl_call_handler"
                 ;;
+	plperl)
+		lancomp="PL/Perl"
+		handler="plperl_call_handler"
+                ;;
 	*)
 		echo "$CMDNAME: unsupported language '$langname'"
-		echo "Supported languages are 'plpgsql' and 'pltcl'."
+		echo "Supported languages are 'plpgsql', 'pltcl', and 'plperl'."
 		exit 1
                 ;;
 esac