X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=maint%2Fgen_pod_inherit;h=f5532a81e54c10d8bd60294dfe8623c858de48c9;hb=a0c96f2461b2a46b242b8432deb0ad88880f73cd;hp=b7adc1425938eb435c11e26a13d5f2e0575a0a83;hpb=3d4c5a8439e2c5f6b74e6c8f52117ececd9e20fa;p=dbsrgits%2FDBIx-Class.git

diff --git a/maint/gen_pod_inherit b/maint/gen_pod_inherit
index b7adc14..f5532a8 100755
--- a/maint/gen_pod_inherit
+++ b/maint/gen_pod_inherit
@@ -6,9 +6,23 @@ use strict;
 my $lib_dir = 'lib';
 my $pod_dir = '.generated_pod';
 
+my $result_metapod_fn = "$lib_dir/DBIx/Class/Manual/ResultClass.pod";
+
 die "POD generator must be executed from the dist root\n"
   unless -d $lib_dir and -d $pod_dir;
 
+require File::Copy;
+File::Copy::copy(
+  "$result_metapod_fn.proto",
+  "$result_metapod_fn",
+) or die "Copying ResultClass proto pod ($result_metapod_fn.pod) failed: $!";
+
+# cleanup
+END {
+  local ($@, $!, $?);
+  unlink $result_metapod_fn;
+}
+
 require Pod::Inherit;
 
 Pod::Inherit->new({