From 0400139001374e8f67153bb98e8a23eaa25cd973 Mon Sep 17 00:00:00 2001
From: Adam Libusa <xlibusa@fi.muni.cz>
Date: Mon, 18 Apr 2011 10:04:30 +0200
Subject: [PATCH] Skript na testovani variable won't stay shared

---
 variable_wont_stay_shared.pl | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 variable_wont_stay_shared.pl

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";
+}
+
-- 
2.39.3