diff --git a/bin/ed b/bin/ed index 6b8e75a6..995f8423 100755 --- a/bin/ed +++ b/bin/ed @@ -749,14 +749,13 @@ sub edInsert { my $append = shift; my(@tmp_lines); - if (defined($adrs[1])) { - edWarn(E_ADDREXT); - return; - } if (defined($args[0])) { edWarn(E_ARGEXT); return; } + if (defined($adrs[1])) { + $adrs[0] = $adrs[1]; + } if (!defined($adrs[0])) { $adrs[0] = $CurrentLineNum; }