Author: jun66j5
Date: Sun Feb 4 04:24:09 2024
New Revision: 1915576
URL: http://svn.apache.org/viewvc?rev=1915576&view=rev
Log:
swig-pl: Fix `unable to close filehandle` warnings on termination of each test.
* subversion/bindings/swig/perl/native/t/5delta-compat.t
* subversion/bindings/swig/perl/native/t/5delta.t
* subversion/bindings/swig/perl/native/t/6ra.t
(): Add `close ...`
Modified:
subversion/trunk/subversion/bindings/swig/perl/native/t/5delta-compat.t
subversion/trunk/subversion/bindings/swig/perl/native/t/5delta.t
subversion/trunk/subversion/bindings/swig/perl/native/t/6ra.t
Modified:
subversion/trunk/subversion/bindings/swig/perl/native/t/5delta-compat.t
URL:
http://svn.apache.org/viewvc/subversion/trunk/subversion/bindings/swig/perl/native/t/5delta-compat.t?rev=1915576&r1=1915575&r2=1915576&view=diff
==============================================================================
--- subversion/trunk/subversion/bindings/swig/perl/native/t/5delta-compat.t
(original)
+++ subversion/trunk/subversion/bindings/swig/perl/native/t/5delta-compat.t Sun
Feb 4 04:24:09 2024
@@ -43,3 +43,4 @@ SVN::TxDelta::send_txstream($txstream, @
# TEST
is($result, $tgttext, 'delta self test');
+close $aresult;
Modified: subversion/trunk/subversion/bindings/swig/perl/native/t/5delta.t
URL:
http://svn.apache.org/viewvc/subversion/trunk/subversion/bindings/swig/perl/native/t/5delta.t?rev=1915576&r1=1915575&r2=1915576&view=diff
==============================================================================
--- subversion/trunk/subversion/bindings/swig/perl/native/t/5delta.t (original)
+++ subversion/trunk/subversion/bindings/swig/perl/native/t/5delta.t Sun Feb 4
04:24:09 2024
@@ -45,3 +45,5 @@ is($result, $tgttext, 'delta self test')
# TEST
is("$md5", 'a22b3dadcbddac48d2f1eae3ec5fb86a', 'md5 matched');
+
+close $aresult;
Modified: subversion/trunk/subversion/bindings/swig/perl/native/t/6ra.t
URL:
http://svn.apache.org/viewvc/subversion/trunk/subversion/bindings/swig/perl/native/t/6ra.t?rev=1915576&r1=1915575&r2=1915576&view=diff
==============================================================================
--- subversion/trunk/subversion/bindings/swig/perl/native/t/6ra.t (original)
+++ subversion/trunk/subversion/bindings/swig/perl/native/t/6ra.t Sun Feb 4
04:24:09 2024
@@ -278,7 +278,9 @@ sub apply_textdelta {
or die "error opening in-memory file to store Subversion update: $!";
open my $in_fh, '<', \''
or die "error opening in-memory file for delta source: $!";
- return [ SVN::TxDelta::apply($in_fh, $out_fh, undef, "$baton", $pool) ];
+ my $result = [SVN::TxDelta::apply($in_fh, $out_fh, undef, "$baton",
$pool)];
+ close $out_fh;
+ return $result;
}
sub close_edit {
