# 
# patch "ChangeLog"
#  from [4aeefa2d2b08378898fdaa41918aa9b13af33557]
#    to [08ba27071d139f1d4d0498cb154bf05b11b14d27]
# 
# patch "contrib/monotone-notify.pl"
#  from [59cf5c04e891778a0c5329d4fb0fb1eacd2b22df]
#    to [a885c4349027f10800e154aa59251a79b382c7d7]
# 
--- ChangeLog
+++ ChangeLog
@@ -1,3 +1,8 @@
+2005-05-11  Richard Levitte  <address@hidden>
+
+	* contrib/monotone-notify.pl: Change all occurences of $symbol' to
+	${symbol}' to avoid a confusing Perl warning.
+
 2005-05-11  Joel Reed  <address@hidden>
 
 	* contrib/monotone.zsh_completion: add zsh completion contrib.
--- contrib/monotone-notify.pl
+++ contrib/monotone-notify.pl
@@ -309,7 +309,7 @@
 		    my %revision_branches =
 			map { (split ' ')[1] => 1 }
 			    grep /^Branch:/, @{$revision_data{$revision}};
-		    my_debug("Checking if $revision's ancestor have already been shown (probably).");
+		    my_debug("Checking if ${revision}'s ancestor have already been shown (probably).");
 		    foreach (@ancestors) {
 			if (!revision_is_in_branch($_,
 						   { %branches,
@@ -625,10 +625,10 @@
 {
     my $command = shift @_;
 
-    my_debug("'$command'\n");
+    my_debug("'${command}'\n");
     my $return = system($command);
     my $exit = $? >> 8;
-    die "'$command' returned with exit code $exit\n" if ($exit);
+    die "'${command}' returned with exit code $exit\n" if ($exit);
     return $return;
 }
 
@@ -642,11 +642,11 @@
     my $command = shift @_;
     my $return = 0;		# exit code for 'true'
 
-    my_debug("'$command'\n");
+    my_debug("'${command}'\n");
     if ($condition) {
 	$return = system($command);
 	my $exit = $? >> 8;
-	die "'$command' returned with exit code $exit\n" if ($exit);
+	die "'${command}' returned with exit code $exit\n" if ($exit);
     } else {
 	my_debug("... not actually executed.\n");
     }
@@ -675,7 +675,7 @@
     my $exit = $? >> 8;
     if ($exit) {
 	my_debug(map { "> ".$_ } @ return);
-	die "'$command' returned with exit code $exit\n";
+	die "'${command}' returned with exit code $exit\n";
     }
     return @return;
 }