From 941bc10cfae21a24a4a552e2f1e03ef7dd66e435 Mon Sep 17 00:00:00 2001
From: Ward Wouts <ward@wouts.nl>
Date: Wed, 13 Mar 2013 13:45:50 +0000
Subject: [PATCH] Variable "$target_name" will not stay shared at
 /home/ward/bin/mvwrap line 83. melding eruit slopen

---
 mvwrap/mvwrap | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/mvwrap/mvwrap b/mvwrap/mvwrap
index 55b2638..0e80f9d 100755
--- a/mvwrap/mvwrap
+++ b/mvwrap/mvwrap
@@ -1,7 +1,5 @@
 #!/usr/bin/perl -w
 
-# $Id$
-
 #
 # Copyright (c) 2001 - 2013 Ward Wouts <ward@wouts.nl>
 #
@@ -43,6 +41,7 @@ use vars qw(
 	$opt_h
 	$paranoia
 	$temp_file
+	$target_name
 );
 
 ########################################################
@@ -77,7 +76,6 @@ sub edit($) {
 # make tempfiles and install handler to remove them
 sub open_temp {
 	my $target;
-	my $target_name;
 	($target, $target_name) = tempfile( TEMPLATE => 'MVWXXXXXXX', SUFFIX => '.mvwrap');
 	# Volgende regel werkt niet...
 	END { if ($opt_e) { unlink($target_name) or die("Couldn't unlink $target_name: $!");} }