From e2c45b807e253f8f964c9742af26571697f4cde8 Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Sat, 22 Aug 2009 11:04:17 +0200
Subject: Rename $skipkey → $skipkeysection.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 localmarkdown2sms | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'localmarkdown2sms')

diff --git a/localmarkdown2sms b/localmarkdown2sms
index 8fc73f3..412a538 100755
--- a/localmarkdown2sms
+++ b/localmarkdown2sms
@@ -58,7 +58,7 @@ if ($debug) {
 }
 
 foreach my $file (read_dir( $path )) {
-    my ($key, $i, $skipkey, $skipcontent);
+    my ($key, $i, $skipkeysection, $skipcontent);
     # suppress repeated warnings for same issue
     my ($warn_nonkey_delay, $warn_nonkey_content);
     next unless ($file =~ /\.mdwn$/);
@@ -78,7 +78,7 @@ foreach my $file (read_dir( $path )) {
 		if ($level == 1 and $content =~ /(\w+)/) {
 			$key = lc($1);
 			$i = 0;
-			$skipkey = undef;
+			$skipkeysection = undef;
 			$skipcontent = undef;
 			if (lc($content) ne $key) {
 				WARN "key \"$key\" extracted from fuzzy string \"$content\" in file \"$file\"";
@@ -90,7 +90,7 @@ foreach my $file (read_dir( $path )) {
 			} else {
 				WARN "skipping non-unique key \"$key\" in file \"$file\"";
 				$key = undef;
-				$skipkey = 1;
+				$skipkeysection = 1;
 				$skipcontent = 1;
 			}
 		# delay
@@ -107,7 +107,7 @@ foreach my $file (read_dir( $path )) {
 				if ($content ne $1) {
 					WARN "delay (${delay}s) resolved from fuzzy string \"$content\" in file \"$file\"";
 				}
-			} elsif ($skipkey or $warn_nonkey_delay) {
+			} elsif ($skipkeysection or $warn_nonkey_delay) {
 				# skipping - already warned about it...
 			} else {
 				WARN "ignoring non-key'ed delay line \"$1\" in file \"$file\"";
@@ -129,7 +129,7 @@ foreach my $file (read_dir( $path )) {
 		};
 		if ( defined( $key ) and not ($skipcontent)) {
 			$reply{$key}[$i] .= $content;
-		} elsif ($skipkey or $skipcontent or $warn_nonkey_content) {
+		} elsif ($skipkeysection or $skipcontent or $warn_nonkey_content) {
 			# skipping - already warned about it...
 		} else {
 			$content =~ /\S/s && WARN "skipping non-key'ed content \"$line\" in file \"$file\"";
-- 
cgit v1.2.3