diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index d53738408312..a74bfdbfb1d8 100644
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -260,6 +260,18 @@ and L</New Warnings>
 
 =item *
 
+L<Undefined subroutine &%s called, close to label '%s'|perldiag/"Undefined subroutine &%s called, close to label '%s'">
+
+(F) The subroutine indicated hasn't been defined, or if it was, it has
+since been undefined.
+
+This error could also indicate a mistyped package separator, when a
+single colon was typed instead of two colons. For example, C<Foo:bar()>
+would be parsed as the label C<Foo> followed by an unqualified function
+name: C<foo: bar()>.
+
+=item *
+
 XXX L<message|perldiag/"message">
 
 =back
diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index 7f981e8008ff..e3746d9f52be 100644
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -6820,6 +6820,16 @@ Perhaps it's in a different package?  See L<perlfunc/sort>.
 (F) The subroutine indicated hasn't been defined, or if it was, it has
 since been undefined.
 
+=item Undefined subroutine &%s called, close to label '%s'
+
+(F) The subroutine indicated hasn't been defined, or if it was, it has
+since been undefined.
+
+This error could also indicate a mistyped package separator, when a
+single colon was typed instead of two colons. For example, C<Foo:bar()>
+would be parsed as the label C<Foo> followed by an unqualified function
+name: C<foo: bar()>.
+
 =item Undefined subroutine called
 
 (F) The anonymous subroutine you're trying to call hasn't been defined,
diff --git a/pp_hot.c b/pp_hot.c
index acfc5713709a..f9f260a7fe31 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -6228,6 +6228,14 @@ S_croak_undefined_subroutine(pTHX_ CV const *cv, GV const *gv)
         SV *sub_name = newSV_type_mortal(SVt_PV);
         gv_efullname3(sub_name, gv, NULL);
 
+        /* Heuristic to spot BOOP:boop() typo, when the intention was
+         * to call BOOP::boop(). */
+        const char * label = CopLABEL(PL_curcop);
+        if (label) {
+            croak("Undefined subroutine &%" SVf " called, close to label '%s'",
+                SVfARG(sub_name), label);
+        }
+
         croak("Undefined subroutine &%" SVf " called", SVfARG(sub_name));
     }
     NOT_REACHED; /* NOTREACHED */
diff --git a/t/lib/croak/pp_hot b/t/lib/croak/pp_hot
index bc00a484c6df..2335aff87f51 100644
--- a/t/lib/croak/pp_hot
+++ b/t/lib/croak/pp_hot
@@ -45,6 +45,15 @@ Undefined subroutine &main::foo called at - line 3.
    &$foosub;
 EXPECT
 Undefined subroutine &main::foo called at - line 2.
+########
+# NAME package separator typo, creating a label by accident
+   package BEEP;
+   sub boop;
+   package main;
+   BEEP:boop();
+EXPECT
+Undefined subroutine &main::boop called, close to label 'BEEP' at - line 4.
+
 ########
 # NAME calling undef scalar
    &{+undef};