[xiph-cvs] cvs commit: shout-perl Shout.pm

[Brendan]

brendan     03/07/06 18:13:28

  Modified:    .        Shout.pm
  Log:
  Bug stopped compatibility method icy_compat(0) from working

Revision  Changes    Path
1.3       +1 -1      shout-perl/Shout.pm

Index: Shout.pm
===================================================================
RCS file: /usr/local/cvsroot/shout-perl/Shout.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -u -r1.2 -r1.3
--- Shout.pm	5 Jul 2003 18:42:50 -0000	1.2
+++ Shout.pm	6 Jul 2003 22:13:28 -0000	1.3
@@ -451,7 +451,7 @@ sub connect ($) {
 sub icy_compat ($$) {
     my $self = shift or croak "icy_compat: Method called as function";
     if (@_) {
-	my $compat = shift or croak "icy_compat: No parameter specified";
+	my $compat = shift;
 
         if ($compat) {
             $self->protocol(SHOUT_PROTOCOL_ICY()) ? 0 : 1;

<p><p>--- >8 ----
List archives:  http://www.xiph.org/archives/
Ogg project homepage: http://www.xiph.org/ogg/
To unsubscribe from this list, send a message to 'cvs-request at xiph.org'
containing only the word 'unsubscribe' in the body.  No subject is needed.
Unsubscribe messages sent to the list will be ignored/filtered.