summaryrefslogtreecommitdiff
path: root/beagle/debian-rfs/usr/share/perl5/Debconf/Template
diff options
context:
space:
mode:
authorManuel Traut <manut@mecka.net>2013-03-10 12:13:49 +0100
committerManuel Traut <manut@mecka.net>2013-03-10 12:13:49 +0100
commit9c0f862749f30800837a45aff5abdcb529867dbc (patch)
treeb0ca51fff64f12fac03aea4afaa1fa722376844b /beagle/debian-rfs/usr/share/perl5/Debconf/Template
parent33b79c725448efd2c9a72e2ae9a1fb04270492f5 (diff)
parentcea5039322781f6085dd47954af5584ca3f78911 (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.pm70
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