Login
Weird failure on Windows with PolicySummary.pod.PL. Even
authorElliot Shank <perl@galumph.com>
Sun, 18 May 2008 22:27:54 +0000 (22:27 +0000)
committerElliot Shank <perl@galumph.com>
Sun, 18 May 2008 22:27:54 +0000 (22:27 +0000)
though file-name variable is simply assigned a string, the
open is complaining about attempting to open a coderef.
While forward slashes are legal on Windows, changing to
using File::Spec::catfile() just to see what happens.

lib/Perl/Critic/PolicySummary.pod.PL

index 9985f03..4b66fba 100644 (file)
@@ -17,6 +17,8 @@ use warnings;
 use English qw< -no_match_vars >;
 use Carp qw< confess >;
 
+use File::Spec ();
+
 # We need both because the blib directory may or may not be in @INC at the
 # time this is run.
 use lib qw< blib lib >;
@@ -41,7 +43,8 @@ my $configuration =
 my @policies = $configuration->policies();
 
 
-my $policy_summary = 'lib/Perl/Critic/PolicySummary.pod';
+my $policy_summary =
+    File::Spec->catfile( qw< lib Perl Critic PolicySummary.pod > );
 
 ## no critic (RequireBriefOpen)
 open my $pod_file, '>', $policy_summary