diff options
author | Marc Espie <espie@cvs.openbsd.org> | 2007-06-04 14:40:40 +0000 |
---|---|---|
committer | Marc Espie <espie@cvs.openbsd.org> | 2007-06-04 14:40:40 +0000 |
commit | 8a3fdf46bd93e71794fcec29cb31017529d8ec57 (patch) | |
tree | 8721baf5d52b0079af9d143523c9b5d0a8cd2bef /usr.sbin/pkg_add/pkg_merge | |
parent | cc4e44748b6a845f1f2d35fc2fe8753cb8b89300 (diff) |
some minor systematic changes.
- mark all regexps I can with /o if they can be compiled once.
- turn $o->method() into $o->method
- remove unneeded prototypes
- reduce split /re/ into split "string" where possible.
Diffstat (limited to 'usr.sbin/pkg_add/pkg_merge')
-rw-r--r-- | usr.sbin/pkg_add/pkg_merge | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/usr.sbin/pkg_add/pkg_merge b/usr.sbin/pkg_add/pkg_merge index 1c66e97a77d..05dde5863bf 100644 --- a/usr.sbin/pkg_add/pkg_merge +++ b/usr.sbin/pkg_add/pkg_merge @@ -41,7 +41,7 @@ sub mark_tocopy sub copy_over { my ($self, $wrarc, $prefix, $pkg) = @_; - my $e = $pkg->{pkg}->next(); + my $e = $pkg->{pkg}->next; if (!$e->check_name($self)) { die "Names don't match: ", $e->{name}, " ", $self->{name}; } @@ -52,7 +52,7 @@ sub copy_over sub make_alias { my ($self, $wrarc, $prefix, $pkg, $alias) = @_; - my $e = $pkg->{pkg}->next(); + my $e = $pkg->{pkg}->next; if (!$e->check_name($self)) { die "Names don't match: ", $e->{name}, " ", $self->{name}; } |