#
#
# patch "Monotone/AutomateStdio.pm"
#  from [79f4e8c6faa82a51b7b935d84029ccbb39323dc5]
#    to [896b6ab51899030b5ca89d879b393bfad2e0fa45]
#
============================================================
--- Monotone/AutomateStdio.pm	79f4e8c6faa82a51b7b935d84029ccbb39323dc5
+++ Monotone/AutomateStdio.pm	896b6ab51899030b5ca89d879b393bfad2e0fa45
@@ -167,11 +167,13 @@ sub unescape($);
 #
 #   Description  - Class constructor.
 #
-#   Data         - $invocant : Either a reference to an object of the same
-#                              class or the name of the class to be created.
-#                  $db_name  : The full path of the Monotone database. If not
-#                              provided then the database associated with the
-#                              current workspace is used.
+#   Data         - $invocant    : Either a reference to an object of the same
+#                                 class or the name of the class to be
+#                                 created.
+#                  $db_name     : The full path of the Monotone database. If
+#                                 not provided then the database associated
+#                                 with the current workspace is used.
+#                  Return Value : A reference to the newly created object.
 #
 ##############################################################################
 
@@ -183,17 +185,8 @@ sub new($;$)
     my ($invocant, $db_name) = @_;
 
     my Monotone::AutomateStdio $this;
-    my %entries;
 
-    if (ref($invocant))
-    {
-	$this = fields::new(ref($invocant));
-    }
-    else
-    {
-	$this = fields::new($invocant);
-    }
-
+    $this = fields::new($invocant);
     $this->{db_name} = $db_name;
     $this->{mtn_pid} = 0;
     $this->{cmd_cnt} = 0;
@@ -204,7 +197,6 @@ sub new($;$)
 	startup($this);
     }
 
-    bless($this);
     $this->SUPER::new() if $this->can("SUPER::new");
 
     return $this;