diff options
Diffstat (limited to 'meta/recipes-devtools/perl/perl/debian/fixes/respect_umask.diff')
-rw-r--r-- | meta/recipes-devtools/perl/perl/debian/fixes/respect_umask.diff | 154 |
1 files changed, 0 insertions, 154 deletions
diff --git a/meta/recipes-devtools/perl/perl/debian/fixes/respect_umask.diff b/meta/recipes-devtools/perl/perl/debian/fixes/respect_umask.diff deleted file mode 100644 index c8663f5357..0000000000 --- a/meta/recipes-devtools/perl/perl/debian/fixes/respect_umask.diff +++ /dev/null | |||
@@ -1,154 +0,0 @@ | |||
1 | From d9d535ef97f57af6e9728075944c33f3b0b5372f Mon Sep 17 00:00:00 2001 | ||
2 | From: Brendan O'Dea <bod@debian.org> | ||
3 | Date: Tue, 8 Mar 2005 19:30:38 +1100 | ||
4 | Subject: Respect umask during installation | ||
5 | |||
6 | This is needed to satisfy Debian policy regarding group-writable | ||
7 | site directories. | ||
8 | |||
9 | Patch-Name: fixes/respect_umask.diff | ||
10 | Upstream-Status: Pending | ||
11 | --- | ||
12 | cpan/ExtUtils-Install/lib/ExtUtils/Install.pm | 18 +++++++++--------- | ||
13 | cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm | 18 +++++++++--------- | ||
14 | 2 files changed, 18 insertions(+), 18 deletions(-) | ||
15 | |||
16 | diff --git a/cpan/ExtUtils-Install/lib/ExtUtils/Install.pm b/cpan/ExtUtils-Install/lib/ExtUtils/Install.pm | ||
17 | index 1e8ac4c..3e79121 100644 | ||
18 | --- a/cpan/ExtUtils-Install/lib/ExtUtils/Install.pm | ||
19 | +++ b/cpan/ExtUtils-Install/lib/ExtUtils/Install.pm | ||
20 | @@ -451,7 +451,7 @@ sub _can_write_dir { | ||
21 | |||
22 | =pod | ||
23 | |||
24 | -=item _mkpath($dir,$show,$mode,$verbose,$dry_run) | ||
25 | +=item _mkpath($dir,$show,$verbose,$dry_run) | ||
26 | |||
27 | Wrapper around File::Path::mkpath() to handle errors. | ||
28 | |||
29 | @@ -468,13 +468,13 @@ writable. | ||
30 | =cut | ||
31 | |||
32 | sub _mkpath { | ||
33 | - my ($dir,$show,$mode,$verbose,$dry_run)=@_; | ||
34 | + my ($dir,$show,$verbose,$dry_run)=@_; | ||
35 | if ( $verbose && $verbose > 1 && ! -d $dir) { | ||
36 | $show= 1; | ||
37 | - printf "mkpath(%s,%d,%#o)\n", $dir, $show, $mode; | ||
38 | + printf "mkpath(%s,%d)\n", $dir, $show; | ||
39 | } | ||
40 | if (!$dry_run) { | ||
41 | - if ( ! eval { File::Path::mkpath($dir,$show,$mode); 1 } ) { | ||
42 | + if ( ! eval { File::Path::mkpath($dir,$show); 1 } ) { | ||
43 | _choke("Can't create '$dir'","$@"); | ||
44 | } | ||
45 | |||
46 | @@ -783,7 +783,7 @@ sub install { #XXX OS-SPECIFIC | ||
47 | _chdir($cwd); | ||
48 | } | ||
49 | foreach my $targetdir (sort keys %check_dirs) { | ||
50 | - _mkpath( $targetdir, 0, 0755, $verbose, $dry_run ); | ||
51 | + _mkpath( $targetdir, 0, $verbose, $dry_run ); | ||
52 | } | ||
53 | foreach my $found (@found_files) { | ||
54 | my ($diff, $ffd, $origfile, $mode, $size, $atime, $mtime, | ||
55 | @@ -797,7 +797,7 @@ sub install { #XXX OS-SPECIFIC | ||
56 | $targetfile= _unlink_or_rename( $targetfile, 'tryhard', 'install' ) | ||
57 | unless $dry_run; | ||
58 | } elsif ( ! -d $targetdir ) { | ||
59 | - _mkpath( $targetdir, 0, 0755, $verbose, $dry_run ); | ||
60 | + _mkpath( $targetdir, 0, $verbose, $dry_run ); | ||
61 | } | ||
62 | print "Installing $targetfile\n"; | ||
63 | |||
64 | @@ -837,7 +837,7 @@ sub install { #XXX OS-SPECIFIC | ||
65 | |||
66 | if ($pack{'write'}) { | ||
67 | $dir = install_rooted_dir(dirname($pack{'write'})); | ||
68 | - _mkpath( $dir, 0, 0755, $verbose, $dry_run ); | ||
69 | + _mkpath( $dir, 0, $verbose, $dry_run ); | ||
70 | print "Writing $pack{'write'}\n" if $verbose; | ||
71 | $packlist->write(install_rooted_file($pack{'write'})) unless $dry_run; | ||
72 | } | ||
73 | @@ -1180,7 +1180,7 @@ environment variable will silence this output. | ||
74 | sub pm_to_blib { | ||
75 | my($fromto,$autodir,$pm_filter) = @_; | ||
76 | |||
77 | - _mkpath($autodir,0,0755); | ||
78 | + _mkpath($autodir,0); | ||
79 | while(my($from, $to) = each %$fromto) { | ||
80 | if( -f $to && -s $from == -s $to && -M $to < -M $from ) { | ||
81 | print "Skip $to (unchanged)\n" unless $INSTALL_QUIET; | ||
82 | @@ -1203,7 +1203,7 @@ sub pm_to_blib { | ||
83 | # we wont try hard here. its too likely to mess things up. | ||
84 | forceunlink($to); | ||
85 | } else { | ||
86 | - _mkpath(dirname($to),0,0755); | ||
87 | + _mkpath(dirname($to),0); | ||
88 | } | ||
89 | if ($need_filtering) { | ||
90 | run_filter($pm_filter, $from, $to); | ||
91 | diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm | ||
92 | index f63145c..197f102 100644 | ||
93 | --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm | ||
94 | +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm | ||
95 | @@ -2118,7 +2118,7 @@ doc__install : doc_site_install | ||
96 | $(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site | ||
97 | |||
98 | pure_perl_install :: all | ||
99 | - $(NOECHO) $(MOD_INSTALL) \ | ||
100 | + $(NOECHO) umask 022; $(MOD_INSTALL) \ | ||
101 | }; | ||
102 | |||
103 | push @m, | ||
104 | @@ -2138,7 +2138,7 @@ q{ "$(INST_LIB)" "$(DESTINSTALLPRIVLIB)" \ | ||
105 | |||
106 | |||
107 | pure_site_install :: all | ||
108 | - $(NOECHO) $(MOD_INSTALL) \ | ||
109 | + $(NOECHO) umask 022; $(MOD_INSTALL) \ | ||
110 | }; | ||
111 | push @m, | ||
112 | q{ read "}.$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q{" \ | ||
113 | @@ -2156,7 +2156,7 @@ q{ "$(INST_LIB)" "$(DESTINSTALLSITELIB)" \ | ||
114 | "}.$self->catdir('$(PERL_ARCHLIB)','auto','$(FULLEXT)').q{" | ||
115 | |||
116 | pure_vendor_install :: all | ||
117 | - $(NOECHO) $(MOD_INSTALL) \ | ||
118 | + $(NOECHO) umask 022; $(MOD_INSTALL) \ | ||
119 | }; | ||
120 | push @m, | ||
121 | q{ read "}.$self->catfile('$(VENDORARCHEXP)','auto','$(FULLEXT)','.packlist').q{" \ | ||
122 | @@ -2188,8 +2188,8 @@ doc_vendor_install :: all | ||
123 | push @m, q{ | ||
124 | doc_perl_install :: all | ||
125 | $(NOECHO) $(ECHO) Appending installation info to "$(DESTINSTALLARCHLIB)/perllocal.pod" | ||
126 | - -$(NOECHO) $(MKPATH) "$(DESTINSTALLARCHLIB)" | ||
127 | - -$(NOECHO) $(DOC_INSTALL) \ | ||
128 | + -$(NOECHO) umask 022; $(MKPATH) "$(DESTINSTALLARCHLIB)" | ||
129 | + -$(NOECHO) umask 022; $(DOC_INSTALL) \ | ||
130 | "Module" "$(NAME)" \ | ||
131 | "installed into" $(INSTALLPRIVLIB) \ | ||
132 | LINKTYPE "$(LINKTYPE)" \ | ||
133 | @@ -2199,8 +2199,8 @@ doc_perl_install :: all | ||
134 | |||
135 | doc_site_install :: all | ||
136 | $(NOECHO) $(ECHO) Appending installation info to "$(DESTINSTALLARCHLIB)/perllocal.pod" | ||
137 | - -$(NOECHO) $(MKPATH) "$(DESTINSTALLARCHLIB)" | ||
138 | - -$(NOECHO) $(DOC_INSTALL) \ | ||
139 | + -$(NOECHO) umask 022; $(MKPATH) "$(DESTINSTALLARCHLIB)" | ||
140 | + -$(NOECHO) umask 022; $(DOC_INSTALL) \ | ||
141 | "Module" "$(NAME)" \ | ||
142 | "installed into" $(INSTALLSITELIB) \ | ||
143 | LINKTYPE "$(LINKTYPE)" \ | ||
144 | @@ -2210,8 +2210,8 @@ doc_site_install :: all | ||
145 | |||
146 | doc_vendor_install :: all | ||
147 | $(NOECHO) $(ECHO) Appending installation info to "$(DESTINSTALLARCHLIB)/perllocal.pod" | ||
148 | - -$(NOECHO) $(MKPATH) "$(DESTINSTALLARCHLIB)" | ||
149 | - -$(NOECHO) $(DOC_INSTALL) \ | ||
150 | + -$(NOECHO) umask 022; $(MKPATH) "$(DESTINSTALLARCHLIB)" | ||
151 | + -$(NOECHO) umask 022; $(DOC_INSTALL) \ | ||
152 | "Module" "$(NAME)" \ | ||
153 | "installed into" $(INSTALLVENDORLIB) \ | ||
154 | LINKTYPE "$(LINKTYPE)" \ | ||