Added test script

git-svn-id: svn://localhost:81/cpan/perl5-http-dav/trunk@156 d5a6ac26-b448-f74c-955c-92d14582c9b2
cosimo · Jan 30, 2009 · f7295c1 · f7295c1
1 parent d39eb39
commit f7295c1
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/patches/RT42877/test.pl b/patches/RT42877/test.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+my $h = {};
+my $curr = $h->{basic_auth}->{netloc}->{realm};
+
+print (( defined $curr ? "\$curr defined" : "\$curr undefined"), "\n");
+
+@{ $h->{basic_auth}->{netloc}->{realm} } = (1, 2, 3);
+
+print (( defined $curr ? "\$curr defined" : "\$curr undefined"), "\n");
+
+print join(":", @{ $h->{basic_auth}->{netloc}->{realm} }), "\n";