| Newsgroups |
perl.cvs.perlfaq |
| Message-ID |
<[email protected]> |
cvsuser 02/04/08 16:03:10
Modified: bin check_urls.pl
Log:
* some whitespace fixes
Revision Changes Path
1.2 +3 -4 perlfaq/bin/check_urls.pl
Index: check_urls.pl
===================================================================
RCS file: /cvs/public/perlfaq/bin/check_urls.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- check_urls.pl 8 Apr 2002 22:29:19 -0000 1.1
+++ check_urls.pl 8 Apr 2002 23:03:09 -0000 1.2
@@ -1,4 +1,5 @@
#!/usr/bin/perl -w
+# $Id: check_urls.pl,v 1.2 2002/04/08 23:03:09 comdog Exp $
use strict;
=head1 NAME
@@ -71,8 +72,6 @@
}
$urls{$file} = [ sort keys %{ {map { $_, 1 } @urls} } ];
-
-
}
$" = "\n\t";