Give tempfiles a .pm suffix for syntax highlighting under -l

sartak · Jun 14, 2011 · 9576dab · 9576dab
1 parent e93c9fa
commit 9576dab
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/Pod/Cpandoc.pm b/lib/Pod/Cpandoc.pm
@@ -42,6 +42,7 @@ sub scrape_documentation_for {
     $module =~ s/::/-/g;
     my ($fh, $fn) = tempfile(
         "${module}-XXXX",
+        SUFFIX => ".pm",
         UNLINK => $self->unlink_tempfiles,
         TMPDIR => 1,
     );