Fix SYNOPSIS (RT#78325)

diff --git a/ChangeLog b/ChangeLog
index 594cf31..8e7aa39 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,7 @@ Revision history for Perl extension MRO::Compat.
 
     - Bump Class::C3 dependency on 5.8 which in turn will automatically
       install Class::C3::XS if possible
+    - Fix nonfunctional SYNOPSIS (RT#78325)
 
 0.11 - Wed May 27, 2009
     - Fix misspelled docs for get_isarev. Closes RT#46401.

diff --git a/lib/MRO/Compat.pm b/lib/MRO/Compat.pm
index 4945fbc..e3e5ea8 100644 (file)
--- a/lib/MRO/Compat.pm
+++ b/lib/MRO/Compat.pm
@@ -49,17 +49,19 @@ MRO::Compat - mro::* interface compatibility for Perls < 5.9.5
 
 =head1 SYNOPSIS
 
+   package PPP;      use base qw/Exporter/;
+   package X;        use base qw/PPP/;
+   package Y;        use base qw/PPP/;
+   package Z;        use base qw/PPP/;
+
    package FooClass; use base qw/X Y Z/;
-   package X;        use base qw/ZZZ/;
-   package Y;        use base qw/ZZZ/;
-   package Z;        use base qw/ZZZ/;
 
    package main;
    use MRO::Compat;
    my $linear = mro::get_linear_isa('FooClass');
    print join(q{, }, @$linear);
 
-   # Prints: "FooClass, X, ZZZ, Y, Z"
+   # Prints: FooClass, X, PPP, Exporter, Y, Z
 
 =head1 DESCRIPTION