ward/publicscripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Variable "$target_name" will not stay shared at /home/ward/bin/mvwrap

Browse source 
line 83.
melding eruit slopen
This commit is contained in:
Ward Wouts 2013-03-13 13:45:50 +00:00
parent 6092023db3
commit 941bc10cfa
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
mvwrap/mvwrap
View file

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