6d707c833a
REPLACE_PERL doesn't deal with whitespace after #!, help it. Also, don't mkdir a path with trailing slash.
19 lines
540 B
Text
19 lines
540 B
Text
$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
|