From 5e82137665d761c0cbd398fa9318b96937513e24 Mon Sep 17 00:00:00 2001
From: qorg11 <qorg@vxempire.xyz>
Date: Tue, 2 Nov 2021 22:27:07 +0100
Subject: [PATCH] make the pass of paremeters to the play_video function bettee

---
 peertube-cli.pl | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/peertube-cli.pl b/peertube-cli.pl
index 34a380f..2aec97d 100755
--- a/peertube-cli.pl
+++ b/peertube-cli.pl
@@ -133,11 +133,7 @@ sub get_video_data($) {
 
 sub play_video($) {
 	my $ref = $_[0];
-	my $url = $ref->[0];
-	my $title = $ref->[1];
-	my $description = $ref->[2];
-	my $author = $ref->[3];
-	my $resolution = $ref->[4];
+	my ($url, $title, $description, $author, $resolution) = @$ref;
 	print "Video title: $title\n";
 	print "Description: $description\n\n";
 	print "Video author: $author\n";