/usr/share/perl5/auto/OpaL/manipulate/perlmodify_insertafter.al is in opalmod 0.2.2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 | # NOTE: Derived from blib/lib/OpaL/manipulate.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package OpaL::manipulate;
#line 208 "blib/lib/OpaL/manipulate.pm (autosplit into blib/lib/auto/OpaL/manipulate/perlmodify_insertafter.al)"
###############################################################################
# Name: perlmodify_insertafter
# Description: Mdifiles a (text)file with the help of a perl-script.
# eg. perl -pi -e script file.
# Arguments: $file, $find, $text, $message [, $level ]
# Uses: perlmodify
# Author: Ola Lundqvist <ola@inguza.com>
# Date: 2000-05-04
# 2000-06-04 Fixed so that insert after do not make
# repeated inserts. (never ever)
# 2000-06-29 Added argument definition.
###############################################################################
sub perlmodify_insertafter {#($$$$;$) {
my $file = shift;
my $find = shift;
my $insert = shift;
$insert =~ s/\$/\\\$/g;
$insert =~ s/\n$//;
my $message = shift;
my $level = shift;
my $data = &readscalarfile("$file");
my $test = "$find$insert";
$data =~ s/\$//g;
$test =~ s/\$//g;
$data =~ s/\*//g;
$test =~ s/\*//g;
$data =~ s/\+//g;
$test =~ s/\+//g;
$data =~ s/\-//g;
$test =~ s/\-//g;
$data =~ s/\@//g;
$test =~ s/\@//g;
$data =~ s/\%//g;
$test =~ s/\%//g;
$data =~ s/\n//g;
$test =~ s/\n//g;
$data =~ s/\///g;
$test =~ s/\///g;
$data =~ s/\(//g;
$test =~ s/\(//g;
$data =~ s/\)//g;
$test =~ s/\)//g;
$data =~ s/\[//g;
$test =~ s/\]//g;
$data =~ s/\.//g;
$test =~ s/\.//g;
$data =~ s/\s+/ /g;
$test =~ s/\s+/ /g;
if ($data !~ /$test/) {
&perlmodify("$file",
"s|($find)|\$1$insert|",
$message,
$level);
}
else {
pdebug(5, "Information already exists.");
}
}
1;
# end of OpaL::manipulate::perlmodify_insertafter
|