1 files changed, 25 insertions, 0 deletions
diff --git a/debian/perl-framework/t/htdocs/php/func5.php b/debian/perl-framework/t/htdocs/php/func5.php
new file mode 100644
index 0000000..dfc86bb
--- /dev/null
+++ b/debian/perl-framework/t/htdocs/php/func5.php
@@ -0,0 +1,25 @@
+<?php
+
+$file = $_SERVER["argv"][0];
+
+function foo()
+{
+        global $file;
+
+        $fp = fopen($file, "w");
+        if( $fp )
+        {
+                fclose($fp);
+        }
+        else
+        {
+                // Attempt to alert the user
+                error_log("can't write $file.", 0);
+        }
+}
+
+register_shutdown_function("foo");
+
+print "foo() will be called on shutdown...\n";
+
+?>