X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FTask-Devel-Cover-Recommended.git;a=blobdiff_plain;f=samples%2Fgenerate.pl;h=13d8db9eb6767e71ac3689ca9756ac03a3df06e1;hp=0c5307c073c0554f6b69387351f9e1f79303c569;hb=bd5859258397f7af2e5df2c5f02f2bd1dd652fbe;hpb=e4471412b9cbe86536f0bb76d8482a6b964c9493

diff --git a/samples/generate.pl b/samples/generate.pl
index 0c5307c..13d8db9 100644
--- a/samples/generate.pl
+++ b/samples/generate.pl
@@ -207,10 +207,15 @@ sub sorthr ($) {
  map { $_ => $hr->{$_} } sort keys %$hr;
 }
 
+# Make sure no package FOO statement appears in this file.
+my $package_statement = join ' ', 'package',
+                                   $task_pkg;
+
 my %vars = (
  TARGET_PKG             => $target_pkg,
  TARGET_VERSION         => $target_version,
  TASK_PKG               => $task_pkg,
+ PACKAGE_TASK_PKG       => $package_statement,
  TASK_VERSION           => $new_task_version,
  PERL_PREREQ            => $prereqs{perl},
  CONFIGURE_PREREQS_POD  => deplist_to_pod(sorthr $prereqs{configure}),
@@ -234,7 +239,7 @@ my %vars = (
 
 my %templates = (
  $task_file => <<'TEMPLATE',
-package __TASK_PKG__;
+__PACKAGE_TASK_PKG__;
 
 use strict;
 use warnings;