(re)added binmode(utf8)

added special return code wich means success with errors

1 files changed, 8 insertions, 6 deletions

diff --git a/rhautoimport.pm b/rhautoimport.pm
index 97d6429..f2e24cc 100644
--- a/rhautoimport.pm
+++ b/rhautoimport.pm
@@ -212,13 +212,15 @@ sub pv_add_note
   my $err_out = join('', <$error>);
   my $read_out = join('', <$reader>);
   if ( $? >> 8 ) {
-    print "\n\nPV: adding note returned non-zero value\n";
-    print "STDERR:\n" . $err_out . "\n" unless $err_out eq '';
-    print "STDOUT:\n" . $read_out . "\n" unless $read_out eq '';
-    print "Ignoring failed headline import!\n";
+    my $log = "\n\nPV: adding note returned non-zero value\n";
+    $log .= "STDERR:\n" . $err_out . "\n" unless $err_out eq '';
+    $log .= "STDOUT:\n" . $read_out . "\n" unless $read_out eq '';
+    return(1, $log);
   } else {
-    print $read_out . "\n" unless $read_out eq '';
-    print $err_out . "\n" unless $err_out eq '';
+    my $log = '';
+    $log .= $read_out . "\n" unless $read_out eq '';
+    $log .= $err_out . "\n" unless $err_out eq '';
+    return(0, $log);
   }
 }