mirrors/netsurf
1
0
Fork 0
mirror of https://github.com/netsurf-browser/netsurf synced 2024-11-23 23:09:39 +03:00
Code Issues Packages Projects Releases Wiki Activity

Use local variables instead of global filehandles

Browse Source 
svn path=/trunk/netsurf/; revision=13068
This commit is contained in:
John Mark Bell 2011-10-17 21:55:45 +00:00
parent 6959a30b26
commit da930e48ad
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
utils/svn-testament.pl
View File

@ -30,9 +30,9 @@ sub gather_output {
my $tmpfile = File::Temp::tmpnam();
local $/ = undef();
system("$cmd > $tmpfile");
open CMDH, "<", $tmpfile;
my $ret = <CMDH>;
close CMDH;
open(my $CMDH, "<", $tmpfile);
my $ret = <$CMDH>;
close($CMDH);
unlink($tmpfile);
return $ret;
}
@ -137,22 +137,22 @@ use Digest::MD5 qw(md5_hex);
my $oldcsum = "";
if ( -e $targetfile ) {
open OLDVALUES, "<", $targetfile;
foreach my $line (readline(OLDVALUES)) {
open(my $OLDVALUES, "<", $targetfile);
foreach my $line (readline($OLDVALUES)) {
if ($line =~ /MD5:([0-9a-f]+)/) {
$oldcsum = $1;
}
}
close OLDVALUES;
close($OLDVALUES);
}
my $newcsum = md5_hex($testament);
if ($oldcsum ne $newcsum) {
print "TESTMENT: $targetfile\n";
open NEWVALUES, ">", $targetfile or die "$!";
print NEWVALUES "/* ", $targetfile,"\n";
print NEWVALUES <<'EOS';
open(my $NEWVALUES, ">", $targetfile) or die "$!";
print $NEWVALUES "/* ", $targetfile,"\n";
print $NEWVALUES <<'EOS';
*
* Revision testament.
*
@ -163,14 +163,14 @@ if ($oldcsum ne $newcsum) {
EOS
print NEWVALUES "#ifndef NETSURF_REVISION_TESTAMENT\n";
print NEWVALUES "#define NETSURF_REVISION_TESTAMENT \"$newcsum\"\n\n";
print NEWVALUES "/* Revision testament checksum:\n";
print NEWVALUES " * MD5:", $newcsum,"\n */\n\n";
print NEWVALUES "/* Revision testament: */\n";
print NEWVALUES $testament;
print NEWVALUES "\n#endif\n";
close NEWVALUES;
print $NEWVALUES "#ifndef NETSURF_REVISION_TESTAMENT\n";
print $NEWVALUES "#define NETSURF_REVISION_TESTAMENT \"$newcsum\"\n\n";
print $NEWVALUES "/* Revision testament checksum:\n";
print $NEWVALUES " * MD5:", $newcsum,"\n */\n\n";
print $NEWVALUES "/* Revision testament: */\n";
print $NEWVALUES $testament;
print $NEWVALUES "\n#endif\n";
close($NEWVALUES);
foreach my $unwanted (@ARGV) {
next unless(-e $unwanted);
print "TESTAMENT: Removing $unwanted\n";