Properly escape curly braces in regular expressions

sshlatex

@@ -43,15 +43,15 @@ function texdeps {
  # Of course, this crude heuristic does not cover all cases --
  # the general case is intractable, since LaTeX is Turing
  # complete. :-)
- if($line =~ /$commands/ and $line =~ /\\newcommand{?\\(\w+)}?/) {
+ if($line =~ /$commands/ and $line =~ /\\newcommand\{?\\(\w+)\}?/) {
  $commands .= "|$1";
  }
 
- if($line =~ /\\graphicspath{({.*?})+}/) {
+ if($line =~ /\\graphicspath\{(\{.*?\})+\}/) {
  push @dirs, map { "$_/" } grep { length $_ > 0 } split /[{}]/, $1;
  }
 
- for my $dep ($line =~ /\\(?:$commands)(?:\[[^\]]*\])?{([^}]+)}/) {
+ for my $dep ($line =~ /\\(?:$commands)(?:\[[^\]]*\])?\{([^\}]+)\}/) {
  # pdf_t is the default extension for the combined LaTeX/PDF export of xfig
  for("", qw< .png .jpeg .jpg .pdf .tex .cls .sty .bbl .bib .pdf_t >) {
  for my $dir (@dirs) {