From c116019614caa966e98de2494570eb9e5aaff629 Mon Sep 17 00:00:00 2001
From: Dave Cross <dave@perlhacks.com>
Date: Mon, 18 Nov 2024 11:08:10 +0000
Subject: [PATCH] Work out why we needed 'package'. Fixed it.

---
 lib/Amazon/Sites.pm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/lib/Amazon/Sites.pm b/lib/Amazon/Sites.pm
index 5daeb9c..ee41b91 100644
--- a/lib/Amazon/Sites.pm
+++ b/lib/Amazon/Sites.pm
@@ -1,5 +1,3 @@
-package Amazon::Sites;
-
 =head1 NAME
 
 Amazon::Sites - A class to represent Amazon sites
@@ -111,9 +109,9 @@ Returns a list of L<Amazon::Site> objects, sorted by the sort order.
     my %sites;
     my @cols = qw[code country tldn currency sort];
 
-    my $where = tell DATA;
+    my $where = tell main::DATA;
 
-    while (<DATA>) {
+    while (<main::DATA>) {
       chomp;
       my %site;
       @site{@cols} = split /\t/;
@@ -126,7 +124,7 @@ Returns a list of L<Amazon::Site> objects, sorted by the sort order.
       $sites{$site{code}} = Amazon::Site->new(%site);
     }
 
-    seek DATA, $where, 0;
+    seek main::DATA, $where, 0;
 
     return %sites;
   }