Remove unused solaris subs from installer::worker

1 files changed, 0 insertions, 135 deletions

diff --git a/solenv/bin/modules/installer/worker.pm b/solenv/bin/modules/installer/worker.pm
index 445f1dceeab4..5bc052f78ab9 100644
--- a/solenv/bin/modules/installer/worker.pm
+++ b/solenv/bin/modules/installer/worker.pm
@@ -2439,141 +2439,6 @@ sub filter_pkgmapfile
     return \@pkgmap;
 }
 
-##############################################
-# Creating double packages for Solaris x86.
-# One package with ARCH=i386 and one with
-# ARCH=i86pc.
-##############################################
-
-sub fix_solaris_x86_patch
-{
-    my ($packagename, $subdir) = @_;
-
-    # changing into directory of packages, important for soft linking
-    my $startdir = cwd();
-    chdir($subdir);
-
-    # $packagename is: "SUNWstaroffice-core01"
-    # Current working directory is: "<path>/install/en-US_inprogress"
-
-    # create new folder in "packages": $packagename . ".i"
-    my $newpackagename = $packagename . "\.i";
-    my $newdir = $newpackagename;
-    installer::systemactions::create_directory($newdir);
-
-    # collecting all directories in the package
-    my $olddir = $packagename;
-    my $allsubdirs = installer::systemactions::get_all_directories_without_path($olddir);
-
-    # link all directories from $packagename to $packagename . ".i"
-    for ( my $i = 0; $i <= $#{$allsubdirs}; $i++ )
-    {
-        my $sourcedir = $olddir . $installer::globals::separator . ${$allsubdirs}[$i];
-        my $destdir = $newdir . $installer::globals::separator . ${$allsubdirs}[$i];
-        my $directory_depth = 2; # important for soft links, two directories already exist
-        installer::systemactions::softlink_complete_directory($sourcedir, $destdir, $directory_depth);
-    }
-
-    # copy "pkginfo" and "pkgmap" from $packagename to $packagename . ".i"
-    my @allcopyfiles = ("pkginfo", "pkgmap");
-    for ( my $i = 0; $i <= $#allcopyfiles; $i++ )
-    {
-        my $sourcefile = $olddir . $installer::globals::separator . $allcopyfiles[$i];
-        my $destfile = $newdir . $installer::globals::separator . $allcopyfiles[$i];
-        installer::systemactions::copy_one_file($sourcefile, $destfile);
-    }
-
-    # change in pkginfo in $packagename . ".i" the value for ARCH from i386 to i86pc
-    my $pkginfofilename = "pkginfo";
-    $pkginfofilename = $newdir . $installer::globals::separator . $pkginfofilename;
-
-    my $pkginfofile = installer::files::read_file($pkginfofilename);
-    set_old_architecture_string($pkginfofile);
-    installer::files::save_file($pkginfofilename, $pkginfofile);
-
-    # adapt the values in pkgmap for pkginfo file, because this file was edited
-    my $pkgmapfilename = "pkgmap";
-    $pkgmapfilename = $newdir . $installer::globals::separator . $pkgmapfilename;
-
-    my $pkgmapfile = installer::files::read_file($pkgmapfilename);
-    set_pkginfo_line($pkgmapfile, $pkginfofilename);
-    installer::files::save_file($pkgmapfilename, $pkgmapfile);
-
-    # changing back to startdir
-    chdir($startdir);
-}
-
-###################################################
-# Creating double core01 package for Solaris x86.
-# One package with ARCH=i386 and one with
-# ARCH=i86pc. This is necessary, to inform the
-# user about the missing "small patch", if
-# packages with ARCH=i86pc are installed.
-###################################################
-
-sub fix2_solaris_x86_patch
-{
-    my ($packagename, $subdir) = @_;
-
-    if ( $packagename =~ /-core01\s*$/ )    # only this one package needs to be duplicated
-    {
-        my $startdir = cwd();
-        chdir($subdir);
-
-        # $packagename is: "SUNWstaroffice-core01"
-        # Current working directory is: "<path>/install/en-US_inprogress"
-
-        # create new package in "packages": $packagename . ".i"
-        my $olddir = $packagename;
-        my $newpackagename = $packagename . "\.i";
-        my $newdir = $newpackagename;
-
-        installer::systemactions::create_directory($newdir);
-
-        my $oldinstalldir = $olddir . $installer::globals::separator . "install";
-        my $newinstalldir = $newdir . $installer::globals::separator . "install";
-
-        installer::systemactions::copy_complete_directory($oldinstalldir, $newinstalldir);
-
-        # setting time stamp of all copied files to avoid errors from pkgchk
-        my $allinstallfiles = installer::systemactions::get_all_files_from_one_directory_without_path($newinstalldir);
-        set_time_stamp($oldinstalldir, $newinstalldir, $allinstallfiles);
-
-        # copy "pkginfo" and "pkgmap" from $packagename to $packagename . ".i"
-        my @allcopyfiles = ("pkginfo", "pkgmap");
-        for ( my $i = 0; $i <= $#allcopyfiles; $i++ )
-        {
-            my $sourcefile = $olddir . $installer::globals::separator . $allcopyfiles[$i];
-            my $destfile = $newdir . $installer::globals::separator . $allcopyfiles[$i];
-            installer::systemactions::copy_one_file($sourcefile, $destfile);
-        }
-
-        # change in pkginfo in $packagename . ".i" the value for ARCH from i386 to i86pc
-        my $pkginfofilename = "pkginfo";
-        $pkginfofilename = $newdir . $installer::globals::separator . $pkginfofilename;
-
-        my $pkginfofile = installer::files::read_file($pkginfofilename);
-        set_old_architecture_string($pkginfofile);
-        check_requires_setting($pkginfofile);
-        installer::files::save_file($pkginfofilename, $pkginfofile);
-
-        # adapt the values in pkgmap for pkginfo file, because this file was edited
-        my $pkgmapfilename = "pkgmap";
-        $pkgmapfilename = $newdir . $installer::globals::separator . $pkgmapfilename;
-
-        my $pkgmapfile = installer::files::read_file($pkgmapfilename);
-        set_pkginfo_line($pkgmapfile, $pkginfofilename);
-        $pkgmapfile = filter_pkgmapfile($pkgmapfile);
-        installer::files::save_file($pkgmapfilename, $pkgmapfile);
-
-        # setting time stamp of all copied files to avoid errors from pkgchk
-        set_time_stamp($olddir, $newdir, \@allcopyfiles);
-
-        # changing back to startdir
-        chdir($startdir);
-    }
-}
-
 ################################################
 # Files with flag HIDDEN get a dot at the
 # beginning of the file name. This cannot be