1 files changed, 13 insertions, 1 deletions
diff --git a/test/manual/indent/perl.perl b/test/manual/indent/perl.perl
index 6ec04303b4f..b44593da028 100755
--- a/test/manual/indent/perl.perl
+++ b/test/manual/indent/perl.perl
@@ -90,8 +90,20 @@ s:abc:def:g;  # FIXME: the initial s is fontified like a label, and indented
 s'def'ghi'g;  # The middle ' should not end the quoting.
 s"ghi"ijk"g;  # The middle ' should not end the quoting.
 
-s#ijk#lmn#g;  # This is a regular expression sustitution.
+s#ijk#lmn#g;  # This is a regular expression substitution.
 
 s #lmn#opq#g; # FIXME: this should be a comment starting with "#lmn"
   /lmn/rst/g; # and this is the actual regular expression
 print;        # prints "rstrst\n"
+
+given ($num) {
+    when ($num>10) {
+	printf "number is greater than 10\n";
+    }
+    when ($num<10) {
+	printf "number is less than 10\n";
+    }
+    default {
+	printf "number is equal to 10\n";
+    }
+}