Fix #799 Update IO::String

LMS-Community · Dec 1, 2022 · 4587ea5 · 4587ea5
1 parent 3a08d91
commit 4587ea5
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 10 deletions.
diff --git a/CPAN/IO/String.pm b/CPAN/IO/String.pm
@@ -1,14 +1,14 @@
 package IO::String;
 
-# Copyright 1998-2004 Gisle Aas.
+# Copyright 1998-2005 Gisle Aas.
 #
 # This library is free software; you can redistribute it and/or
 # modify it under the same terms as Perl itself.
 
 require 5.005_03;
 use strict;
 use vars qw($VERSION $DEBUG $IO_CONSTANTS);
-$VERSION = "1.07";  # $Date: 2005-11-07 19:19:03 -0500 (Mon, 07 Nov 2005) $
+$VERSION = "1.08";  # $Date: 2005/12/05 12:00:47 $
 
 use Symbol ();
 
@@ -79,13 +79,7 @@ sub close
     delete *$self->{buf};
     delete *$self->{pos};
     delete *$self->{lno};
-    if ($] >= 5.006 && $[ < 5.007) {
-	# perl-5.6.x segfaults on untie, so avoid it
-    }
-    else {
-	untie *$self;
-	undef *$self;
-    }
+    undef *$self if $] eq "5.008";  # workaround for some bug
     return 1;
 }
 
@@ -549,7 +543,7 @@ L<IO::File>, L<IO::Stringy>, L<perlfunc/open>
 
 =head1 COPYRIGHT
 
-Copyright 1998-2003 Gisle Aas.
+Copyright 1998-2005 Gisle Aas.
 
 This library is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.

diff --git a/Changelog8.html b/Changelog8.html
@@ -24,6 +24,7 @@ <h2><a name="v8.4.0" id="v8.4.0"></a>Version 8.4.0</h2>
 	<li>Bug Fixes:</li>
 	<ul>
 		<li><a href="https://github.com/Logitech/slimserver/issues/622">#622</a>__requestRE should only match words provided to Slim::Control::Request::subscribe. (thanks earlchew!)</li>
+		<li><a href="https://github.com/Logitech/slimserver/issues/799">#799</a>Update IO::String to latest, fixing some odd Perl version check.</li>
 		<li><a href="https://github.com/Logitech/slimserver/issues/829">#829</a>Don't override a content type set by a page handler.</li>
 		<li></li>
 	</ul>