X-Git-Url: http://sjero.net/git/?p=wget;a=blobdiff_plain;f=util%2Frmold.pl;h=b7ddecf9b0f6623429475a3945906aa544745286;hp=1f574743df92753d1d4e8986506557ca04d7c5b5;hb=2f6aa1d7417df1dfc58597777686fbd77179b9fd;hpb=c2c71c32cf7e75336bb45fc299658910e0f9f8af 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 = ();