#
#
# patch "Monotone/AutomateStdio.pm"
#  from [5a56e7f3772ace2bff2bb242406b616b2d6d6f79]
#    to [cc7e6df3a8ac14cbd9d7211777eb53d1673610b1]
#
============================================================
--- Monotone/AutomateStdio.pm	5a56e7f3772ace2bff2bb242406b616b2d6d6f79
+++ Monotone/AutomateStdio.pm	cc7e6df3a8ac14cbd9d7211777eb53d1673610b1
@@ -97,7 +97,7 @@ our $VERSION = 0.1;
 our @EXPORT_OK = qw();
 our $VERSION = 0.1;
 
-# ***** FUNCTIONAL PROTOTYPES FOR THIS FILE *****
+# ***** FUNCTIONAL PROTOTYPES *****
 
 # Public methods.
 
@@ -174,7 +174,8 @@ sub new($;$)
 sub new($;$)
 {
 
-    my $class = ref($_[0]) ? ref($_[0]) : $_[0];
+
+    my $class = (ref($_[0]) ne "") ? ref($_[0]) : $_[0];
     my $db_name = $_[1];
 
     my $this;