From: Peter Rabbitson <ribasushi@cpan.org>
Date: Tue, 4 Dec 2012 17:40:41 +0000 (+0100)
Subject: Fix SYNOPSIS (RT#78325)
X-Git-Tag: 0.12~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=78e400deb8bcd1698c858dc98cd1998f0614fcbc;p=gitmo%2FMRO-Compat.git

Fix SYNOPSIS (RT#78325)
---

diff --git a/ChangeLog b/ChangeLog
index 594cf31..8e7aa39 100644
--- 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
--- 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