From e5758898a5ff6071925ce997c35340beabd1398b Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 5 Dec 2007 23:09:15 +0000
Subject: [PATCH] Bareword file handle.  See pages 202,204 of PBP.  (Severity:
 5) Two-argument "open".  See page 207 of PBP.  (Severity: 5)

---
 lib/XML/RSS/Creator.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/XML/RSS/Creator.pm b/lib/XML/RSS/Creator.pm
index 1736e4715..7301a9d01 100644
--- a/lib/XML/RSS/Creator.pm
+++ b/lib/XML/RSS/Creator.pm
@@ -1492,9 +1492,9 @@ sub strict {
 
 sub save {
     my ($self,$file) = @_;
-    open(OUT,">$file") || croak "Cannot open file $file for write: $!";
-    print OUT $self->as_string;
-    close OUT;
+    open my $OUT, '>', $file or croak "Cannot open file $file for write: $!";
+    print $OUT $self->as_string;
+    close $OUT;
 }