traincity has asked for the wisdom of the Perl Monks concerning the following question:
Mon Jul 01 16:26:46.898774 2019 cgi:error pid 6060:tid 1144 client ::1:58540 AH01215: Can't write to 'localhost/choo/tcimages/176801_1.JPG-14660': No such file or directory at C:/Strawberry/perl/vendor/lib/LWP/Protocol.pm line 114. at C:/Strawberry/perl/vendor/lib/LWP/UserAgent.pm line 982.\r: C:/Apache24/htdocs/choo/cgi-bin/ua/main.pl
I found protocol.pm but have no idea how to deal with this. As far as I can tell line 114 is the die statement:
This can't be moved to Try::Tiny due to the closures within causing # leaks on any version of Perl prior to 5.18. # https://perl5.git.perl.org/perl.git/commitdiff/a0d2bbd5c my $error = do { #catch local $@; local $\; # protect the print below from surprises eval { # try if (!defined($arg) || !$response->is_success) { $response->{default_add_content} = 1; } elsif (!ref($arg) && length($arg)) { open(my $fh, ">", $arg) or die "Can't write to '$arg': + $!"; binmode($fh); push(@{$response->{handlers}{response_data}}, { callback => sub { print $fh $_[3] or die "Can't write to '$arg': + $!"; 1;
I have no idea what to do here. I hope I presented this so it makes some sense to someone.
Thanks for any help.
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: write to .jpg error problem
by haukex (Archbishop) on Jul 01, 2019 at 21:27 UTC | |
by traincity (Sexton) on Jul 02, 2019 at 21:16 UTC | |
by marto (Cardinal) on Jul 02, 2019 at 21:48 UTC | |
by bliako (Abbot) on Jul 03, 2019 at 00:49 UTC | |
by marto (Cardinal) on Jul 03, 2019 at 08:22 UTC | |
| |
by traincity (Sexton) on Jul 03, 2019 at 08:06 UTC | |
by marto (Cardinal) on Jul 03, 2019 at 08:21 UTC | |
|
Re: write to .jpg error problem
by Corion (Patriarch) on Jul 01, 2019 at 21:29 UTC | |
|
Re: write to .jpg error problem
by bliako (Abbot) on Jul 01, 2019 at 23:30 UTC |