[Monotone-commits-diffs] net.venge.monotone: 2189eb5c0a1fd552e2c477349f9dfa5256f8f0cc

[code]

revision:            2189eb5c0a1fd552e2c477349f9dfa5256f8f0cc
date:                2011-02-18T02:16:27
author:              Richard Levitte <address@hidden>
branch:              net.venge.monotone
changelog:
* extra/shell/monotone_gen_bash_completion_table.pl: Apparently, 'defined
  %hash' is deprecated (see http://perldoc.perl.org/functions/defined.html).
  Use the simpler 'check the size' method instead.  [closes #145]

manifest:
format_version "1"

new_manifest [62bab75b8971b67c824b4476ee70f30aaed6f94e]

old_revision [c0b0065cc70470e1a511cd7a5e5ac3ebadffd40a]

patch "extra/shell/monotone_gen_bash_completion_table.pl"
 from [7043a0fa2a658c12b6c877e2d3445c7712ac4bcc]
   to [dc027152ea007fa06b58854a510193630119b8ce]
============================================================
--- extra/shell/monotone_gen_bash_completion_table.pl	7043a0fa2a658c12b6c877e2d3445c7712ac4bcc
+++ extra/shell/monotone_gen_bash_completion_table.pl	dc027152ea007fa06b58854a510193630119b8ce
@@ -145,15 +145,15 @@ foreach my $key (sort keys %commands) {
 #    print STDERR "DEBUG: key = $key\n";
     print "_monotone_commands['$key']='"
 	,join(" ",sort keys %{$commands{$key}})
-	,"'\n" if defined %{$commands{$key}};
+	,"'\n" if %{$commands{$key}};
     print "_monotone_command_args['$key']='"
 	,join(" ",@{$command_args{$key}})
-	,"'\n" if defined $command_args{$key};
+	,"'\n" if $command_args{$key};
     print "_monotone_command_options['$key']='"
 	,join(" ",sort @{$command_options{$key}}),"'\n"
-	if defined @{$command_options{$key}};
+	if $command_options{$key};
     print "### Missing $key\n"
-	if (!defined %{$commands{$key}} &&
-	    !defined $command_args{$key} &&
-	    !defined @{$command_options{$key}});
+	if (!%{$commands{$key}} &&
+	    !$command_args{$key} &&
+	    !$command_options{$key});
 }