From 672e02bb3e6424e464cbd558bc18c93faddd0993 Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Mon, 3 Feb 2025 20:36:52 +0100
Subject: [PATCH] disable noise debug prints
---
hacks/linux/sastest/stp.pl | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/hacks/linux/sastest/stp.pl b/hacks/linux/sastest/stp.pl
index 960fa5a..9ae5ea7 100755
--- a/hacks/linux/sastest/stp.pl
+++ b/hacks/linux/sastest/stp.pl
@@ -105,7 +105,7 @@ while (1)
$dd= Disk::Dump->start($dd_dev);
$dd_pid= $dd->get_pid();
$delay= 0;
- print __LINE__, " dd: dd_pid=[$dd_pid]", Dumper($dd);
+ # print __LINE__, " dd: dd_pid=[$dd_pid]", Dumper($dd);
}
elsif ($action->{status} == 2)
{
@@ -248,7 +248,7 @@ sub get_line
if ($@)
{
print __LINE__, " get_line pump failed with $@\n";
- print __LINE__, " self: ", main::Dumper($self);
+ # print __LINE__, " self: ", main::Dumper($self);
}
}
@@ -271,7 +271,7 @@ sub start
my $cmd= shift;
my $jcf= IPC::Run::start($cmd, $self->{_in}, $self->{_cl}, $self->{_cl}) or return undef;
- print __LINE__, " jcf=[$jcf]\n";
+ # print __LINE__, " jcf=[$jcf]\n";
$self->{_jcf}= $jcf;
}
--
GitLab