Index: pkg_notify
===================================================================
RCS file: /cvs/pkg_notify/pkg_notify,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 pkg_notify
--- pkg_notify	23 Nov 2004 10:57:00 -0000	1.1.1.1
+++ pkg_notify	23 Nov 2004 15:00:35 -0000
@@ -98,7 +98,7 @@
 			$realdist = $dist.$2.$extract_sufx;
 			my $lsvers = $2;
 
-			# strip any extention (bin, pkg, src, devel-...)
+			# strip any extension (bin, pkg, src, devel-...)
 			if ($nicearc) {
 				$lsvers = ext_strip($lsvers);
 			}
@@ -180,7 +180,7 @@
 	if ($ftp = Net::FTP->new($_[0], Debug => 0, Passive => 1)) {
 
 		if ($ftp->login("anonymous",'-anonymous@')) {
-			# conncted
+			# connected
 			return (1);
 		} else { 
 			if ($debug) {
@@ -387,7 +387,7 @@
 	my $nostrip = 0;
 
 	$nicearc = 0;
-	# nice archive, has a comprehensive versionning
+	# nice archive, has a comprehensive versioning
 	if (defined($minor) && ($distname =~ /(.+?)($major[\._]?$minor.*$)/)) {
 		$dist = $1;
 		$version = $2;
@@ -396,7 +396,7 @@
 	} elsif (defined($major) && ($distname =~ /(.+)($major.*)/)) {
 		$dist = $1;
 		$version = $2;
-	# ok, archive versionning is a pure mess
+	# ok, archive versioning is a pure mess
 	# assume version is everything not being PKGNAME
 	} else {
 		$dist = $pkgname;
@@ -425,7 +425,7 @@
 
 	$master_site = pop @master_list;
 	if (!$master_site) {
-		last;
+		next;
 	}
 	chomp($master_site);
 
@@ -501,7 +501,7 @@
 				undef($ftp);
 			} else {
 				print "  /!\\ there was an error while connecting to $master_site\n";
-				# beleive me you prefer see this than a while / break
+				# believe me you prefer see this than a while / break
 				goto next_master_site;
 			}