1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
#!/usr/bin/perl -ni.bak
BEGIN {
my $start;
}
while (<>) {
if ($ARGV ne $oldargv) {
print <<EOF;
/*
* E-XML Library: For XML, XML-RPC, HTTP, and related.
* Copyright (C) 2002-2008 Elias Ross
*
* genman\@noderunner.net
* http://noderunner.net/~genman
*
* 1025 NE 73RD ST
* SEATTLE WA 98115
* USA
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* \$Id\$
*/
EOF
$oldargv = $ARGV;
undef $start;
}
m/package/ and $start = true;
$start and print;
}
|
