diff --git a/7.3.806 b/7.3.806
new file mode 100644
index 0000000..a28cd5b
--- /dev/null
+++ b/7.3.806
@@ -0,0 +1,171 @@
+To: vim_dev@googlegroups.com
+Subject: Patch 7.3.806
+Fcc: outbox
+From: Bram Moolenaar <Bram@moolenaar.net>
+Mime-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+------------
+
+Patch 7.3.806
+Problem:    Compiler warnings in Perl code when building with Visual studio
+	    2012. (skeept)
+Solution:   Add type casts. (Christian Brabandt, 2013 Jan 30)
+Files:	    src/if_perl.xs
+
+
+*** ../vim-7.3.805/src/if_perl.xs	2012-09-21 12:50:44.000000000 +0200
+--- src/if_perl.xs	2013-02-06 19:55:12.000000000 +0100
+***************
+*** 1048,1054 ****
+  	{
+  	    SV *sv = ST(i);
+  	    if (SvIOK(sv))
+! 		b = SvIV(ST(i));
+  	    else
+  	    {
+  		char_u *pat;
+--- 1048,1054 ----
+  	{
+  	    SV *sv = ST(i);
+  	    if (SvIOK(sv))
+! 		b = (int) SvIV(ST(i));
+  	    else
+  	    {
+  		char_u *pat;
+***************
+*** 1091,1097 ****
+      {
+  	for (i = 0; i < items; i++)
+  	{
+! 	    w = SvIV(ST(i));
+  	    vimwin = win_find_nr(w);
+  	    if (vimwin)
+  		XPUSHs(newWINrv(newSV(0), vimwin));
+--- 1091,1097 ----
+      {
+  	for (i = 0; i < items; i++)
+  	{
+! 	    w = (int) SvIV(ST(i));
+  	    vimwin = win_find_nr(w);
+  	    if (vimwin)
+  		XPUSHs(newWINrv(newSV(0), vimwin));
+***************
+*** 1154,1161 ****
+  
+        if (!win_valid(win))
+  	  win = curwin;
+!       lnum = SvIV(ST(1));
+!       col = SvIV(ST(2));
+        win->w_cursor.lnum = lnum;
+        win->w_cursor.col = col;
+        check_cursor();		    /* put cursor on an existing line */
+--- 1154,1161 ----
+  
+        if (!win_valid(win))
+  	  win = curwin;
+!       lnum = (int) SvIV(ST(1));
+!       col = (int) SvIV(ST(2));
+        win->w_cursor.lnum = lnum;
+        win->w_cursor.col = col;
+        check_cursor();		    /* put cursor on an existing line */
+***************
+*** 1216,1222 ****
+      {
+  	for (i = 1; i < items; i++)
+  	{
+! 	    lnum = SvIV(ST(i));
+  	    if (lnum > 0 && lnum <= vimbuf->b_ml.ml_line_count)
+  	    {
+  		line = ml_get_buf(vimbuf, lnum, FALSE);
+--- 1216,1222 ----
+      {
+  	for (i = 1; i < items; i++)
+  	{
+! 	    lnum = (long) SvIV(ST(i));
+  	    if (lnum > 0 && lnum <= vimbuf->b_ml.ml_line_count)
+  	    {
+  		line = ml_get_buf(vimbuf, lnum, FALSE);
+***************
+*** 1239,1245 ****
+  	if (items < 3)
+  	    croak("Usage: VIBUF::Set(vimbuf, lnum, @lines)");
+  
+! 	lnum = SvIV(ST(1));
+  	for(i = 2; i < items; i++, lnum++)
+  	{
+  	    line = SvPV(ST(i),PL_na);
+--- 1239,1245 ----
+  	if (items < 3)
+  	    croak("Usage: VIBUF::Set(vimbuf, lnum, @lines)");
+  
+! 	lnum = (long) SvIV(ST(1));
+  	for(i = 2; i < items; i++, lnum++)
+  	{
+  	    line = SvPV(ST(i),PL_na);
+***************
+*** 1274,1286 ****
+      {
+  	if (items == 2)
+  	{
+! 	    lnum = SvIV(ST(1));
+  	    count = 1;
+  	}
+  	else if (items == 3)
+  	{
+! 	    lnum = SvIV(ST(1));
+! 	    count = 1 + SvIV(ST(2)) - lnum;
+  	    if (count == 0)
+  		count = 1;
+  	    if (count < 0)
+--- 1274,1286 ----
+      {
+  	if (items == 2)
+  	{
+! 	    lnum = (long) SvIV(ST(1));
+  	    count = 1;
+  	}
+  	else if (items == 3)
+  	{
+! 	    lnum = (long) SvIV(ST(1));
+! 	    count = (long) 1 + SvIV(ST(2)) - lnum;
+  	    if (count == 0)
+  		count = 1;
+  	    if (count < 0)
+***************
+*** 1331,1337 ****
+  	if (items < 3)
+  	    croak("Usage: VIBUF::Append(vimbuf, lnum, @lines)");
+  
+! 	lnum = SvIV(ST(1));
+  	for (i = 2; i < items; i++, lnum++)
+  	{
+  	    line = SvPV(ST(i),PL_na);
+--- 1331,1337 ----
+  	if (items < 3)
+  	    croak("Usage: VIBUF::Append(vimbuf, lnum, @lines)");
+  
+! 	lnum = (long) SvIV(ST(1));
+  	for (i = 2; i < items; i++, lnum++)
+  	{
+  	    line = SvPV(ST(i),PL_na);
+*** ../vim-7.3.805/src/version.c	2013-02-06 19:49:38.000000000 +0100
+--- src/version.c	2013-02-06 19:58:16.000000000 +0100
+***************
+*** 727,728 ****
+--- 727,730 ----
+  {   /* Add new patch number below this line */
++ /**/
++     806,
+  /**/
+
+-- 
+BRIDGEKEEPER: What is your favorite colour?
+LAUNCELOT:    Blue.
+BRIDGEKEEPER: Right.  Off you go.
+                 "Monty Python and the Holy Grail" PYTHON (MONTY) PICTURES LTD
+
+ /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net   \\\
+///        sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\
+\\\  an exciting new programming language -- http://www.Zimbu.org        ///
+ \\\            help me help AIDS victims -- http://ICCF-Holland.org    ///