$NetBSD: patch-ah,v 1.1 2003/08/19 18:44:29 shattered Exp $

--- smime_keys.pl.orig	Mon Jan  6 01:12:33 2003
+++ smime_keys.pl
@@ -1,4 +1,4 @@
-#! /usr/bin/perl -w
+#!/usr/bin/perl -w
 
 # Copyright (C) 2001,2002 Oliver Ehli <elmy@acm.org>
 # Copyright (C) 2001 Mike Schiraldi <raldi@research.netsol.com>
@@ -243,7 +243,7 @@ sub mkdir_recursive ($) {
     my $tmp_path;
     
     for my $dir (split /\//, $path) {
-        $tmp_path .= "$dir/";
+        $tmp_path .= "/$dir";
 
         -d $tmp_path 
             or mkdir $tmp_path, 0700