projects
/
irspy-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
_really_rewrite_record() renamed more explicitly to _rewrite_zeerex_record()
[irspy-moved-to-github.git]
/
lib
/
ZOOM
/
IRSpy.pm
diff --git
a/lib/ZOOM/IRSpy.pm
b/lib/ZOOM/IRSpy.pm
index
f5df4b5
..
d330113
100644
(file)
--- a/
lib/ZOOM/IRSpy.pm
+++ b/
lib/ZOOM/IRSpy.pm
@@
-288,7
+288,7
@@
sub _irspy_to_zeerex {
}
}
-sub _rewrite_record {
+sub _rewrite_irspy_record {
my $this = shift();
my($conn) = @_;
my $this = shift();
my($conn) = @_;
@@
-300,12
+300,12
@@
sub _rewrite_record {
# connection as idle. So re-establish it if necessary.
$this->{conn}->connect($conn->option("host"));
# connection as idle. So re-establish it if necessary.
$this->{conn}->connect($conn->option("host"));
- _really_rewrite_record($this->{conn}, $rec);
+ _rewrite_zeerex_record($this->{conn}, $rec);
$conn->log("irspy", "rewrote XML record");
}
$conn->log("irspy", "rewrote XML record");
}
-sub _really_rewrite_record {
+sub _rewrite_zeerex_record {
my($conn, $rec, $oldid) = @_;
my $p = $conn->package();
my($conn, $rec, $oldid) = @_;
my $p = $conn->package();
@@
-433,7
+433,7
@@
sub check {
}
if (!defined $nextaddr) {
$conn->log("irspy", "has no more tests: removing");
}
if (!defined $nextaddr) {
$conn->log("irspy", "has no more tests: removing");
- $this->_rewrite_record($conn);
+ $this->_rewrite_irspy_record($conn);
$conn->option(rewrote_record => 1);
my $newconn = $this->_next_connection();
if (!defined $newconn) {
$conn->option(rewrote_record => 1);
my $newconn = $this->_next_connection();
if (!defined $newconn) {