diff --git a/lib/Text/Playlist.pm b/lib/Text/Playlist.pm index 05a5193..5200862 100644 --- a/lib/Text/Playlist.pm +++ b/lib/Text/Playlist.pm @@ -26,10 +26,10 @@ sub load { } sub save { - my ($self, $file) = @_; + my ($self, $file, @items) = @_; open(my $FH, ">", $file) or die $!; - print $FH $self->dump(); + print $FH $self->dump(@items); close($FH); return 1;