added debootstrap stuff

Signed-off-by: Manuel Traut <manut@mecka.net>

4 files changed, 144 insertions, 0 deletions

diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/DynaLoader/autosplit.ix b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/DynaLoader/autosplit.ix
new file mode 100644
index 0000000..ca7f728
--- /dev/null
+++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/DynaLoader/autosplit.ix
@@ -0,0 +1,8 @@
+# Index created by AutoSplit for ../../lib/DynaLoader.pm
+#    (file acts as timestamp)
+package DynaLoader;
+sub dl_findfile  ;
+sub dl_expandspec  ;
+sub dl_find_symbol_anywhere 
+;
+1;
diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/DynaLoader/dl_expandspec.al b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/DynaLoader/dl_expandspec.al
new file mode 100644
index 0000000..4682650
--- /dev/null
+++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/DynaLoader/dl_expandspec.al
@@ -0,0 +1,31 @@
+# NOTE: Derived from ../../lib/DynaLoader.pm.
+# Changes made here will be lost when autosplit is run again.
+# See AutoSplit.pm.
+package DynaLoader;
+
+#line 318 "../../lib/DynaLoader.pm (autosplit into ../../lib/auto/DynaLoader/dl_expandspec.al)"
+sub dl_expandspec {
+    my($spec) = @_;
+    # Optional function invoked if DynaLoader.pm sets $do_expand.
+    # Most systems do not require or use this function.
+    # Some systems may implement it in the dl_*.xs file in which case
+    # this autoload version will not be called but is harmless.
+
+    # This function is designed to deal with systems which treat some
+    # 'filenames' in a special way. For example VMS 'Logical Names'
+    # (something like unix environment variables - but different).
+    # This function should recognise such names and expand them into
+    # full file paths.
+    # Must return undef if $spec is invalid or file does not exist.
+
+    my $file = $spec; # default output to input
+
+    
+	return undef unless -f $file;
+    
+    print STDERR "dl_expandspec($spec) => $file\n" if $dl_debug;
+    $file;
+}
+
+# end of DynaLoader::dl_expandspec
+1;
diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/DynaLoader/dl_find_symbol_anywhere.al b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/DynaLoader/dl_find_symbol_anywhere.al
new file mode 100644
index 0000000..408035a
--- /dev/null
+++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/DynaLoader/dl_find_symbol_anywhere.al
@@ -0,0 +1,19 @@
+# NOTE: Derived from ../../lib/DynaLoader.pm.
+# Changes made here will be lost when autosplit is run again.
+# See AutoSplit.pm.
+package DynaLoader;
+
+#line 341 "../../lib/DynaLoader.pm (autosplit into ../../lib/auto/DynaLoader/dl_find_symbol_anywhere.al)"
+sub dl_find_symbol_anywhere
+{
+    my $sym = shift;
+    my $libref;
+    foreach $libref (@dl_librefs) {
+	my $symref = dl_find_symbol($libref,$sym);
+	return $symref if $symref;
+    }
+    return undef;
+}
+
+1;
+# end of DynaLoader::dl_find_symbol_anywhere
diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/DynaLoader/dl_findfile.al b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/DynaLoader/dl_findfile.al
new file mode 100644
index 0000000..4ee67f9
--- /dev/null
+++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/DynaLoader/dl_findfile.al
@@ -0,0 +1,86 @@
+# NOTE: Derived from ../../lib/DynaLoader.pm.
+# Changes made here will be lost when autosplit is run again.
+# See AutoSplit.pm.
+package DynaLoader;
+
+#line 239 "../../lib/DynaLoader.pm (autosplit into ../../lib/auto/DynaLoader/dl_findfile.al)"
+sub dl_findfile {
+    # Read ext/DynaLoader/DynaLoader.doc for detailed information.
+    # This function does not automatically consider the architecture
+    # or the perl library auto directories.
+    my (@args) = @_;
+    my (@dirs,  $dir);   # which directories to search
+    my (@found);         # full paths to real files we have found
+    #my $dl_ext= 'so'; # $Config::Config{'dlext'} suffix for perl extensions
+    #my $dl_so = 'so'; # $Config::Config{'so'} suffix for shared libraries
+
+    print STDERR "dl_findfile(@args)\n" if $dl_debug;
+
+    # accumulate directories but process files as they appear
+    arg: foreach(@args) {
+        #  Special fast case: full filepath requires no search
+	
+	
+	
+        if (m:/: && -f $_) {
+	    push(@found,$_);
+	    last arg unless wantarray;
+	    next;
+	}
+	
+
+        # Deal with directories first:
+        #  Using a -L prefix is the preferred option (faster and more robust)
+        if (m:^-L:) { s/^-L//; push(@dirs, $_); next; }
+
+	
+	
+        #  Otherwise we try to try to spot directories by a heuristic
+        #  (this is a more complicated issue than it first appears)
+        if (m:/: && -d $_) {   push(@dirs, $_); next; }
+
+	
+
+        #  Only files should get this far...
+        my(@names, $name);    # what filenames to look for
+        if (m:-l: ) {          # convert -lname to appropriate library name
+            s/-l//;
+            push(@names,"lib$_.$dl_so");
+            push(@names,"lib$_.a");
+        } else {                # Umm, a bare name. Try various alternatives:
+            # these should be ordered with the most likely first
+            push(@names,"$_.$dl_dlext")    unless m/\.$dl_dlext$/o;
+            push(@names,"$_.$dl_so")     unless m/\.$dl_so$/o;
+            push(@names,"lib$_.$dl_so")  unless m:/:;
+            push(@names,"$_.a")          if !m/\.a$/ and $dlsrc eq "dl_dld.xs";
+            push(@names, $_);
+        }
+	my $dirsep = '/';
+	
+        foreach $dir (@dirs, @dl_library_path) {
+            next unless -d $dir;
+	    
+            foreach $name (@names) {
+		my($file) = "$dir$dirsep$name";
+                print STDERR " checking in $dir for $name\n" if $dl_debug;
+		$file = ($do_expand) ? dl_expandspec($file) : (-f $file && $file);
+		#$file = _check_file($file);
+		if ($file) {
+                    push(@found, $file);
+                    next arg; # no need to look any further
+                }
+            }
+        }
+    }
+    if ($dl_debug) {
+        foreach(@dirs) {
+            print STDERR " dl_findfile ignored non-existent directory: $_\n" unless -d $_;
+        }
+        print STDERR "dl_findfile found: @found\n";
+    }
+    return $found[0] unless wantarray;
+    @found;
+}
+
+# end of DynaLoader::dl_findfile
+1;