diff options
Diffstat (limited to 'perl/perl-Ogg-Vorbis-Header-PurePerl/eliminate_deprecated_use_of_array_as_reference_rt_cpan_org_96578.diff')
| -rw-r--r-- | perl/perl-Ogg-Vorbis-Header-PurePerl/eliminate_deprecated_use_of_array_as_reference_rt_cpan_org_96578.diff | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/perl/perl-Ogg-Vorbis-Header-PurePerl/eliminate_deprecated_use_of_array_as_reference_rt_cpan_org_96578.diff b/perl/perl-Ogg-Vorbis-Header-PurePerl/eliminate_deprecated_use_of_array_as_reference_rt_cpan_org_96578.diff new file mode 100644 index 0000000000..1811c35dae --- /dev/null +++ b/perl/perl-Ogg-Vorbis-Header-PurePerl/eliminate_deprecated_use_of_array_as_reference_rt_cpan_org_96578.diff @@ -0,0 +1,22 @@ +--- /home/jkeenan/Downloads/Ogg-Vorbis-Header-PurePerl-1.0/test.pl 2007-01-04 17:12:23.000000000 -0500 ++++ ./test.pl 2015-04-06 21:44:12.970890513 -0400 +@@ -19,16 +19,16 @@ + # Try all the routines + ok($ogg->info->{'rate'} == 44100); + ok($ogg->comment_tags); +-ok(@{$ogg->comment('artist')}->[0] == 'maloi'); ++ok($ogg->comment('artist')->[0] == 'maloi'); + + $ogg = 0; + + # See if full load works + ok(my $ogg = Ogg::Vorbis::Header::PurePerl->new('test.ogg')); +-ok(@{$ogg->comment('artist')}->[0] == 'maloi'); ++ok($ogg->comment('artist')->[0] == 'maloi'); + + # and see if we can get comments including the '=' character +-ok(@{$ogg->comment('album')}->[0] == 'this=that'); ++ok($ogg->comment('album')->[0] == 'this=that'); + + # Make sure we're getting the right track length + ok($ogg->info->{'length'} == 0); |