Tweak customcode exception example

diff --git a/bucardo b/bucardo
index 358550b13d97a490200380eb07f3b0b21c6af864..db70bb946b8837de7b86481764509bdf9838f33f 100755 (executable)
--- a/bucardo
+++ b/bucardo
@@ -9686,13 +9686,13 @@ An example:
   use Data::Dumper;
 
   # Bail if it's a dummy run (triggered by validate_sync).
-  my $info = shift;
-  return if $info->{dummy};
+  my $info = $_[0];
+  return if exists $info->{dummy};
 
   # Let's open a file.
   my $file = '/tmp/bucardo_dump.txt';
   open my $fh, '>:encoding(UTF-8)', $file or do {
-      $info->{error} = "Cannot open $file: $!\n";
+      $info->{warning} = "Cannot open $file: $!\n";
       return;
   };