Looks like the patch got lost... so here it is again in plaintext:
--- install.pl.orig 2009-10-23 11:36:26.000000000 +0200
+++ install.pl 2009-10-23 15:58:42.000000000 +0200
@@ -1443,8 +1443,7 @@
$u->comments ('_temp', 'scan_windrivers_path') =
['Directory holding Windows drivers collection'];
-$u->{'_temp'}->{'scan_windrivers_path'} =
- sub { return $file_spec->catdir ( $u->{'_meta'}->{'dos_zdrv'}, "site",
"win_drivers"); };
+$u->{'_temp'}->{'scan_windrivers_path'} = '/z/site/win_drivers';
$u->comments ('_temp', 'scan_windrivers_options') =
['Option(s) to scan engine of Windows driver(s) (search-win-drivers.pl)'];
@@ -1775,18 +1774,22 @@
# - no troubles with $oem$\$1\drivers and scan_windrivers_dest_map
# also set to 'drivers': winnt.exe just merge the content of
# these folders (into c:\drivers).
- if ( (! defined $u->{'_meta'}->{'ntinstall_cmd'})
+ if ( (defined $u->{'_meta'}->{'ntinstall_cmd'})
+ and ( defined $u->{'_temp'}->{'scan_windrivers'})
and ( $u->{'_temp'}->{'scan_windrivers'} ne '' )) {
- mkdir "/c/" . $u->{'_temp'}->{'scan_windrivers_dest'}
- or die "FAILED: $^E";
+ if (! -d "/c/") {
+ mkdir "/c/" . $u->{'_temp'}->{'scan_windrivers_dest'}
+ or die "FAILED: $^E";
+ }
for my $e (split /@/, $u->{'_meta'}->{'scan_windrivers_dest_map'}) {
(my $i, my $d) = split /:/, $e ;
# convert $d into a full unix path
$d =~ s#\\#/#g ;
$d = "/c/" . $d;
- system "ln -s $i $d" ;
+# system "ln -s $i $d";
+ system "cp -r $i $d";
}
}
push @doit_cmds, 'xcopy /s /e /y Y:\\ C:\\';
@@ -1818,12 +1821,14 @@
# Scan of Windows drivers:
# - write output log : only once c:\netinst exists.
# - Update OemPnPDriversPath if needed
-if ( $u->{'_temp'}->{'scan_windrivers'} ne '' ) {
+if ( (! defined $u->{'_temp'}->{'scan_windrivers'})
+ or ($u->{'_temp'}->{'scan_windrivers'} ne '' )) {
my $raw_file = $file_spec->catfile ($u->{'_meta'}->{'netinst'},
'logs', 'drivers.log');
print "Write Windows drivers scan raw output into $raw_file...";
- write_file( $raw_file, split /\n/, $u->{'_temp'}->{'scan_windrivers'});
+ write_file( $raw_file, split /\n/,
+ (defined $u->{'_temp'}->{'scan_windrivers'}?
$u->{'_temp'}->{'scan_windrivers'}: '' ));
print "done.\n";
if ( $u->{'_meta'}->{'scan_windrivers_dest_map'} eq '' ) {
------------------------------------------------------------------------------
Come build with us! The BlackBerry(R) Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take BlackBerry mobile applications to market and stay
ahead of the curve. Join us from November 9 - 12, 2009. Register now!
http://p.sf.net/sfu/devconference
_______________________________________________
unattended-devel mailing list
unattended-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/unattended-devel
