Make sure no literal 'package FOO' appears in samples/generate.pl

[perl/modules/Task-Devel-Cover-Recommended.git] / samples / generate.pl

diff --git a/samples/generate.pl b/samples/generate.pl
index 0c5307c073c0554f6b69387351f9e1f79303c569..13d8db9eb6767e71ac3689ca9756ac03a3df06e1 100644 (file)
--- 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;