X-Git-Url: http://sjero.net/git/?a=blobdiff_plain;f=util%2Frmold.pl;h=b7ddecf9b0f6623429475a3945906aa544745286;hb=d23ce97885e46d191eec452d1786d97a781dcdbf;hp=1f574743df92753d1d4e8986506557ca04d7c5b5;hpb=53d0aff795316dc1a4b785632f0d4d93c861e9cb;p=wget diff --git a/util/rmold.pl b/util/rmold.pl index 1f574743..b7ddecf9 100755 --- a/util/rmold.pl +++ b/util/rmold.pl @@ -1,6 +1,7 @@ -#! /usr/bin/perl -w +#!/usr/bin/env perl -w -# Copyright (C) 1995, 1996, 1997, 2007 Free Software Foundation, Inc. +# Copyright (C) 1995, 1996, 1997, 2007, 2008, 2009, 2010, 2011 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 = ();