From: Adam Libusa <xlibusa@fi.muni.cz>
Date: Mon, 18 Apr 2011 08:04:30 +0000 (+0200)
Subject: Skript na testovani variable won't stay shared
X-Git-Tag: snapshot-20110506-0930~23
X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?p=test%2Ftestrepo.git;a=commitdiff_plain;h=0400139001374e8f67153bb98e8a23eaa25cd973

Skript na testovani variable won't stay shared
---

diff --git a/variable_wont_stay_shared.pl b/variable_wont_stay_shared.pl
new file mode 100644
index 0000000..624a398
--- /dev/null
+++ b/variable_wont_stay_shared.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/perl -w
+
+print "Content-Type: text/plain\n\njezek.\n";
+my $x = "krtek";
+
+f();
+
+sub f {
+       $x = "tucnak";
+}
+