From 88873314ed5427f7eb71ab8a3d175fedff746506 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 20 May 2010 00:20:33 +0200
Subject: [PATCH] we one point to access mask

---
 trace-path.pl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/trace-path.pl b/trace-path.pl
index 6239d13..3611481 100755
--- a/trace-path.pl
+++ b/trace-path.pl
@@ -83,6 +83,12 @@ sub reset_path { @path = () }
 
 sub curve {
 
+	if ( $#path < 1 ) {
+		warn "path too short ", dump @path;
+		reset_path;
+		return;
+	}
+	
 	my $mask_col = $mask->pixel( $path[-2], $path[-1] );
 	my $mask_hex = sprintf '%02x%02x%02x', $mask_col->r, $mask_col->g, $mask_col->b;
 	warn "mask $path[-2] $path[1] $mask_hex\n";
-- 
2.20.1