diff options
| author | Manuel Traut <manut@mecka.net> | 2013-03-10 12:13:49 +0100 |
|---|---|---|
| committer | Manuel Traut <manut@mecka.net> | 2013-03-10 12:13:49 +0100 |
| commit | 9c0f862749f30800837a45aff5abdcb529867dbc (patch) | |
| tree | b0ca51fff64f12fac03aea4afaa1fa722376844b /beagle/debian-rfs/usr/share/perl5/Debconf/Template | |
| parent | 33b79c725448efd2c9a72e2ae9a1fb04270492f5 (diff) | |
| parent | cea5039322781f6085dd47954af5584ca3f78911 (diff) | |
Merge branch 'schulung'
updates from current linutronix schulung.git
Conflicts:
Makefile
configpres.tex
flash-memory/ubi/handout_ubi_de.tex
handout.tex
index.txt
pres_master.tex
vorl.tex
vorl1.tex
vorl2.tex
vorl3.tex
vorl4.tex
vorl5.tex
Signed-off-by: Manuel Traut <manut@mecka.net>
Diffstat (limited to 'beagle/debian-rfs/usr/share/perl5/Debconf/Template')
| -rw-r--r-- | beagle/debian-rfs/usr/share/perl5/Debconf/Template/Transient.pm | 70 |
1 files changed, 0 insertions, 70 deletions
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Template/Transient.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Template/Transient.pm deleted file mode 100644 index beb7865..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Template/Transient.pm +++ /dev/null @@ -1,70 +0,0 @@ -#!/usr/bin/perl -w -# This file was preprocessed, do not edit! - - -package Debconf::Template::Transient; -use strict; -use base 'Debconf::Template'; -use fields qw(_fields); - - - -sub new { - my $this=shift; - my $template=shift; - - unless (ref $this) { - $this = fields::new($this); - } - $this->{template}=$template; - $this->{_fields}={}; - return $this; -} - - -sub get { - die "get not supported on transient templates"; -} - - -sub fields { - my $this=shift; - - return keys %{$this->{_fields}}; -} - - -sub clearall { - my $this=shift; - - foreach my $field (keys %{$this->{_fields}}) { - delete $this->{_fields}->{$field}; - } -} - - -{ - my @langs=Debconf::Template::_getlangs(); - - sub AUTOLOAD { - (my $field = our $AUTOLOAD) =~ s/.*://; - no strict 'refs'; - *$AUTOLOAD = sub { - my $this=shift; - - return $this->{_fields}->{$field}=shift if @_; - - if ($Debconf::Template::i18n && @langs) { - foreach my $lang (@langs) { - return $this->{_fields}->{$field.'-'.lc($lang)} - if exists $this->{_fields}->{$field.'-'.lc($lang)}; - } - } - return $this->{_fields}->{$field}; - }; - goto &$AUTOLOAD; - } -} - - -1 |
