For the sake of maintainability though I think I will avoid using this crafty method.
It is not at all clear to me why you think it need be a maintenance problem. Just wrap it over in a function something like:
sub getWithStatus {
my $url = shift;
my $content;
open my $RAM, '>', \$content;
my $stdoutsaved = select;
select *$RAM;
my $status = getprint( $url );
select $stdoutsaved;
close $RAM;
return $status, $content;
}
...
my( $status, $content ) = getWithStatus( $url );
if( $status ne RC_OK ) {
die "Get $url failed with HTTP status: $status";
}
...
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
RIP Neil Armstrong
Social/div |