kill mystuff

This commit is contained in:
espie 2005-09-09 08:20:37 +00:00
parent 244c52bc2b
commit 1e9f0a5a06

View File

@ -1,6 +1,6 @@
#! /usr/bin/perl
# $OpenBSD: register-plist,v 1.2 2005/09/05 10:13:11 espie Exp $
# $OpenBSD: register-plist,v 1.3 2005/09/09 08:20:37 espie Exp $
# Copyright (c) 2005
# Marc Espie. All rights reserved.
# Redistribution and use in source and binary forms, with or without
@ -78,6 +78,13 @@ sub forget_details
$self->{name} =~ s/^(\$$openbsd: .*,v).*/$1\$/;
}
package OpenBSD::PackingElement::ExtraInfo;
sub forget_details
{
my $self = shift;
$self->{subdir} =~ s/^mystuff\///;
}
package main;
if (@ARGV < 2) {