X-Git-Url: http://sjero.net/git/?p=wget;a=blobdiff_plain;f=util%2Frmold.pl;h=4662805d2602fcd5738b4b7adb5680dbf5e14ef4;hp=1f574743df92753d1d4e8986506557ca04d7c5b5;hb=df804c69d98920e25a8c3bdec661613227524474;hpb=e7d78dd2a75d0ea21a63ac4968df6079b8018cd5 diff --git a/util/rmold.pl b/util/rmold.pl index 1f574743..4662805d 100755 --- a/util/rmold.pl +++ b/util/rmold.pl @@ -1,6 +1,7 @@ #! /usr/bin/perl -w -# Copyright (C) 1995, 1996, 1997, 2007 Free Software Foundation, Inc. +# Copyright (C) 1995, 1996, 1997, 2007, 2008, 2009 Free Software +# Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -45,7 +46,7 @@ sub procdir local(@lcfiles, @lcdirs, %files, @fl); print STDERR "Processing directory '$dir':\n" if $verbose; - + opendir(DH, $dir) || die("Cannot open $dir: $!\n"); @lcfiles = (); @lcdirs = ();