escape data which looks like formula

git-svn-id: svn://svn.rot13.org/SQL2XLS@28 2e857b76-582b-47e5-ad5c-b3ba0f0ee29b

diff --git a/sql2xls.cgi b/sql2xls.cgi
index 0de8e00..041e198 100755 (executable)
--- a/sql2xls.cgi
+++ b/sql2xls.cgi
@@ -224,6 +224,7 @@ foreach my $sql_file (@sql_files) {
                                        warn "## heuristic date time: $1T$2\n" if $debug;
                                        $worksheet->write_date_time( $row, $col, "$1T$2", $date_format );
                                } else {
+                                       $data = "'" . $data if $data =~ m/^=/; # escape data which looks like formula
                                        $worksheet->write($row, $col, _c( $data ) );
                                }
                        }