| Subject: | Method output cannot be sent to stdout |
| Date: | Tue, 6 Nov 2018 15:15:43 -0600 |
| To: | bug-PostScript-Simple [...] rt.cpan.org |
| From: | Tilghman Lesher <tilghman [...] meg.abyt.es> |
In an earlier version of Perl, the invocation of passing "&STDOUT" to
the output method of a PostScript::Simple object allowed the output to
be sent to stdout, which was useful for creating a pipeline into lpr
or another print utility. This no longer works, but instead a literal
file is created with the indicated name.
Easy fix:
--- Simple.pm.orig 2018-11-06 15:12:56.280105744 -0600
+++ Simple.pm.new 2018-11-06 15:12:30.116089563 -0600
@@ -888,7 +888,7 @@
$page = _builddocument($self, $file);
local *OUT;
- open(OUT, '>', $file) or die("Cannot write to file $file: $!");
+ open(OUT, '>' . $file) or die("Cannot write to file $file: $!");
foreach $i (@$page) {
if (ref($i) eq "SCALAR") {
--
Tilghman