oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Bareword file handle. See pages 202,204 of PBP. (Severity: 5)

Browse source 
Two-argument "open".  See page 207 of PBP.  (Severity: 5)
This commit is contained in:
Colin Kuskie 2007-12-05 23:09:15 +00:00
parent be6b2d3e7c
commit e5758898a5
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/XML/RSS/Creator.pm
View file

@ -1492,9 +1492,9 @@ sub strict {
sub save { sub save {
my ($self,$file) = @_; my ($self,$file) = @_;
open(OUT,">$file") || croak "Cannot open file $file for write: $!"; open my $OUT, '>', $file or croak "Cannot open file $file for write: $!";
print OUT $self->as_string; print $OUT $self->as_string;
close OUT; close $OUT;
} }