diff options
author | Larry Wall <lwall@netlabs.com> | 1994-05-04 23:00:00 +0000 |
---|---|---|
committer | Larry Wall <lwall@netlabs.com> | 1994-05-04 23:00:00 +0000 |
commit | 85e6fe838fb25b257a1b363debf8691c0992ef71 (patch) | |
tree | fd5340cd6c3bbabfc21d3b0cac48e7ab3a481ebf /Bugs/mig | |
parent | 2304df62caa7d9be70e8b8bcdb454e139c9c103d (diff) | |
download | perl-5a9.tar.gz |
perl 5.0 alpha 9perl-5a9
[editor's note: the sparc executables have not been included,
and emacs backup files have been removed]
Diffstat (limited to 'Bugs/mig')
-rwxr-xr-x | Bugs/mig | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/Bugs/mig b/Bugs/mig deleted file mode 100755 index a00a8e8b8a..0000000000 --- a/Bugs/mig +++ /dev/null @@ -1,17 +0,0 @@ -#!./perl - -$foo = <<EOF; -Subject: foobar -From: baz -EOF - -$* = 1; - -$pat = '^([*+&!]*)(Subject:)'; -#$pat =~ s/([a-zA-Z])/[\u$1\l$1]/g; -#print $pat; - -$foo =~ /$pat/g; - -print $', "\n"; - |